home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1992-09-15 | 19.0 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1b f4 3e 3c 42 | 75 63 6b 79 24 44 69 72 |.....><B|ucky$Dir|
|00000010| 3e 2e 21 52 75 6e 49 6d | 61 67 65 0d 00 14 14 f4 |>.!RunIm|age.....|
|00000020| 20 43 4f 50 49 45 44 20 | 31 33 2f 32 2f 39 31 0d | COPIED |13/2/91.|
|00000030| 00 1e 04 0d 00 28 10 ee | 20 85 20 f2 65 72 72 6f |.....(..| . .erro|
|00000040| 72 3a e0 0d 00 32 04 0d | 00 3c 28 f2 49 6e 69 74 |r:...2..|.<(.Init|
|00000050| 57 69 6d 70 3a f4 20 20 | 20 20 20 20 20 20 20 20 |Wimp:. | |
|00000060| 49 4e 49 54 49 41 4c 49 | 53 45 20 57 49 4d 50 0d |INITIALI|SE WIMP.|
|00000070| 00 46 0d f2 49 6e 69 74 | 4d 65 6e 75 0d 00 50 0d |.F..Init|Menu..P.|
|00000080| f2 49 6e 69 74 50 72 6f | 67 0d 00 5a 0c f2 49 63 |.InitPro|g..Z..Ic|
|00000090| 6f 6e 42 61 72 0d 00 64 | 04 0d 00 6e 16 ee 20 85 |onBar..d|...n.. .|
|000000a0| 20 4a 3d a4 77 69 6d 70 | 65 72 72 6f 72 3a e0 0d | J=.wimp|error:..|
|000000b0| 00 78 04 0d 00 82 09 f2 | 70 6f 6c 6c 0d 00 8c 04 |.x......|poll....|
|000000c0| 0d 00 96 23 c8 99 20 22 | 57 69 6d 70 5f 50 6f 6c |...#.. "|Wimp_Pol|
|000000d0| 6c 22 2c 2c 77 69 6e 64 | 25 20 b8 20 72 65 61 73 |l",,wind|% . reas|
|000000e0| 6f 6e 25 0d 00 a0 32 24 | 77 69 6e 64 25 3d 22 54 |on%...2$|wind%="T|
|000000f0| 41 53 4b 22 3a c8 99 20 | 22 57 69 6d 70 5f 43 6c |ASK":.. |"Wimp_Cl|
|00000100| 6f 73 65 44 6f 77 6e 22 | 2c 74 61 73 6b 25 2c 21 |oseDown"|,task%,!|
|00000110| 77 69 6e 64 25 0d 00 aa | 05 e0 0d 00 b4 04 0d 00 |wind%...|........|
|00000120| be 04 0d 00 c8 0b dd 20 | f2 70 6f 6c 6c 0d 00 d2 |....... |.poll...|
|00000130| 05 f5 0d 00 dc 23 c8 99 | 20 22 57 69 6d 70 5f 50 |.....#..| "Wimp_P|
|00000140| 6f 6c 6c 22 2c 2c 77 69 | 6e 64 25 20 b8 20 72 65 |oll",,wi|nd% . re|
|00000150| 61 73 6f 6e 25 0d 00 e6 | 04 0d 00 f0 10 c8 8e 20 |ason%...|....... |
|00000160| 72 65 61 73 6f 6e 25 20 | ca 0d 00 fa 13 20 20 c9 |reason% |..... .|
|00000170| 20 30 20 20 20 20 3a f2 | 41 74 6f 6d 0d 01 04 15 | 0 :.|Atom....|
|00000180| 20 20 c9 20 31 20 20 20 | 20 3a f2 52 65 44 72 61 | . 1 | :.ReDra|
|00000190| 77 0d 01 0e 19 20 20 c9 | 20 32 20 20 20 20 3a f2 |w.... .| 2 :.|
|000001a0| 4f 70 65 6e 57 69 6e 64 | 6f 77 0d 01 18 1a 20 20 |OpenWind|ow.... |
|000001b0| c9 20 33 20 20 20 20 3a | f2 43 6c 6f 73 65 57 69 |. 3 :|.CloseWi|
|000001c0| 6e 64 6f 77 0d 01 22 28 | 20 20 c9 20 36 20 20 20 |ndow.."(| . 6 |
|000001d0| 20 3a e7 20 77 69 6e 64 | 25 21 38 3d 32 20 f2 4d | :. wind|%!8=2 .M|
|000001e0| 45 4e 55 3a 8b 20 f2 53 | 74 65 65 72 0d 01 2c 16 |ENU:. .S|teer..,.|
|000001f0| 20 20 c9 20 37 20 20 20 | 20 3a 52 6f 75 74 65 25 | . 7 | :Route%|
|00000200| 3d 35 0d 01 36 23 20 20 | c9 20 38 20 20 20 20 3a |=5..6# |. 8 :|
|00000210| 71 75 69 74 25 3d 28 28 | 77 69 6e 64 25 21 32 34 |quit%=((|wind%!24|
|00000220| 29 3d 32 37 29 0d 01 40 | 17 20 20 c9 20 39 20 20 |)=27)..@|. . 9 |
|00000230| 20 20 3a f2 4d 65 6e 75 | 49 74 65 6d 0d 01 4a 22 | :.Menu|Item..J"|
|00000240| c9 20 31 37 2c 31 38 3a | e7 20 77 69 6e 64 25 21 |. 17,18:|. wind%!|
|00000250| 31 36 3d 30 20 8c 20 71 | 75 69 74 25 3d b9 0d 01 |16=0 . q|uit%=...|
|00000260| 54 05 cb 0d 01 5e 0b fd | 20 71 75 69 74 25 0d 01 |T....^..| quit%..|
|00000270| 68 05 e1 0d 01 72 04 0d | 01 7c 11 dd 20 f2 4f 70 |h....r..|.|.. .Op|
|00000280| 65 6e 57 69 6e 64 6f 77 | 0d 01 86 1f c8 99 20 22 |enWindow|...... "|
|00000290| 57 69 6d 70 5f 4f 70 65 | 6e 57 69 6e 64 6f 77 22 |Wimp_Ope|nWindow"|
|000002a0| 2c 2c 77 69 6e 64 25 0d | 01 90 05 e1 0d 01 9a 04 |,,wind%.|........|
|000002b0| 0d 01 a4 12 dd 20 f2 43 | 6c 6f 73 65 57 69 6e 64 |..... .C|loseWind|
|000002c0| 6f 77 0d 01 ae 20 c8 99 | 20 22 57 69 6d 70 5f 43 |ow... ..| "Wimp_C|
|000002d0| 6c 6f 73 65 57 69 6e 64 | 6f 77 22 2c 2c 77 69 6e |loseWind|ow",,win|
|000002e0| 64 25 0d 01 b8 24 e7 20 | 77 69 6e 64 25 21 30 3d |d%...$. |wind%!0=|
|000002f0| 44 69 61 67 72 61 6d 48 | 61 6e 64 6c 65 25 20 71 |DiagramH|andle% q|
|00000300| 75 69 74 25 3d b9 0d 01 | c2 05 e1 0d 01 cc 04 0d |uit%=...|........|
|00000310| 01 d6 0c dd 20 f2 65 72 | 72 6f 72 0d 01 e0 09 ee |.... .er|ror.....|
|00000320| 20 85 20 87 0d 01 ea 11 | 24 77 69 6e 64 25 3d 22 | . .....|$wind%="|
|00000330| 54 41 53 4b 22 0d 01 f4 | 23 c8 99 22 57 69 6d 70 |TASK"...|#.."Wimp|
|00000340| 5f 43 6c 6f 73 65 44 6f | 77 6e 22 2c 74 61 73 6b |_CloseDo|wn",task|
|00000350| 25 2c 21 77 69 6e 64 25 | 0d 01 fe 16 f1 20 f6 24 |%,!wind%|..... .$|
|00000360| 3b 22 20 61 74 20 6c 69 | 6e 65 20 22 3b 9e 0d 02 |;" at li|ne ";...|
|00000370| 08 05 e1 0d 02 12 04 0d | 02 1c 10 dd 20 a4 77 69 |........|.... .wi|
|00000380| 6d 70 65 72 72 6f 72 0d | 02 26 0c 21 77 69 6e 64 |mperror.|.&.!wind|
|00000390| 25 3d 9f 0d 02 30 23 24 | 28 77 69 6e 64 25 2b 34 |%=...0#$|(wind%+4|
|000003a0| 29 3d f6 24 2b 22 20 61 | 74 20 6c 69 6e 65 20 22 |)=.$+" a|t line "|
|000003b0| 2b c3 9e 2b bd 30 0d 02 | 3a 3c c8 99 20 22 57 69 |+..+.0..|:<.. "Wi|
|000003c0| 6d 70 5f 52 65 70 6f 72 | 74 45 72 72 6f 72 22 2c |mp_Repor|tError",|
|000003d0| 77 69 6e 64 25 2c 33 2c | 22 54 65 73 74 20 57 69 |wind%,3,|"Test Wi|
|000003e0| 6e 64 6f 77 22 20 b8 20 | 2c 72 65 73 70 6f 6e 73 |ndow" . |,respons|
|000003f0| 65 25 0d 02 44 19 21 77 | 69 6e 64 25 3d 44 69 61 |e%..D.!w|ind%=Dia|
|00000400| 67 72 61 6d 48 61 6e 64 | 6c 65 25 0d 02 4e 4a e7 |gramHand|le%..NJ.|
|00000410| 20 72 65 73 70 6f 6e 73 | 65 25 3d 32 20 8c 20 24 | respons|e%=2 . $|
|00000420| 77 69 6e 64 25 3d 22 54 | 41 53 4b 22 3a c8 99 20 |wind%="T|ASK":.. |
|00000430| 22 57 69 6d 70 5f 43 6c | 6f 73 65 44 6f 77 6e 22 |"Wimp_Cl|oseDown"|
|00000440| 2c 74 61 73 6b 25 2c 21 | 77 69 6e 64 25 3a 3d b9 |,task%,!|wind%:=.|
|00000450| 20 8b 20 3d a3 0d 02 58 | 36 24 77 69 6e 64 25 3d | . =...X|6$wind%=|
|00000460| 22 54 41 53 4b 22 3a c8 | 99 20 22 57 69 6d 70 5f |"TASK":.|. "Wimp_|
|00000470| 43 6c 6f 73 65 44 6f 77 | 6e 22 2c 74 61 73 6b 25 |CloseDow|n",task%|
|00000480| 2c 21 77 69 6e 64 25 3a | 20 3d b9 0d 02 62 04 0d |,!wind%:| =...b..|
|00000490| 02 6c 0d dd 20 f2 52 65 | 44 72 61 77 0d 02 76 05 |.l.. .Re|Draw..v.|
|000004a0| e1 0d 02 80 04 0d 02 8a | 0d dd 20 f2 55 70 64 61 |........|.. .Upda|
|000004b0| 74 65 0d 02 94 55 21 77 | 69 6e 64 25 3d 44 69 61 |te...U!w|ind%=Dia|
|000004c0| 67 72 61 6d 48 61 6e 64 | 6c 65 25 3a 21 28 77 69 |gramHand|le%:!(wi|
|000004d0| 6e 64 25 2b 34 29 3d 30 | 3a 21 28 77 69 6e 64 25 |nd%+4)=0|:!(wind%|
|000004e0| 2b 38 29 3d 2d 39 33 32 | 3a 21 28 77 69 6e 64 25 |+8)=-932|:!(wind%|
|000004f0| 2b 31 32 29 3d 31 32 33 | 36 3a 21 28 77 69 6e 64 |+12)=123|6:!(wind|
|00000500| 25 2b 31 36 29 3d 30 0d | 02 9e 29 c8 99 20 22 57 |%+16)=0.|..).. "W|
|00000510| 69 6d 70 5f 55 70 64 61 | 74 65 57 69 6e 64 6f 77 |imp_Upda|teWindow|
|00000520| 22 2c 2c 77 69 6e 64 25 | 20 b8 20 6d 6f 72 65 25 |",,wind%| . more%|
|00000530| 0d 02 a8 0c c8 95 20 6d | 6f 72 65 25 0d 02 b2 29 |...... m|ore%...)|
|00000540| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 52 65 63 74 |.. "Wimp|_GetRect|
|00000550| 61 6e 67 6c 65 22 2c 2c | 77 69 6e 64 25 20 b8 20 |angle",,|wind% . |
|00000560| 6d 6f 72 65 25 0d 02 bc | 05 ce 0d 02 c6 05 e1 0d |more%...|........|
|00000570| 02 d0 05 20 0d 02 da 0e | dd 20 f2 49 63 6f 6e 42 |... ....|. .IconB|
|00000580| 61 72 0d 02 e4 1c ea 20 | 71 25 2c 73 70 72 69 74 |ar..... |q%,sprit|
|00000590| 65 73 25 2c 54 25 2c 73 | 70 6e 61 6d 65 24 0d 02 |es%,T%,s|pname$..|
|000005a0| ee 2e 53 25 3d 8e 22 3c | 42 75 63 6b 79 24 44 69 |..S%=."<|Bucky$Di|
|000005b0| 72 3e 2e 21 53 70 72 69 | 74 65 73 22 3a 54 25 3d |r>.!Spri|tes":T%=|
|000005c0| a2 23 53 25 2b 31 36 3a | d9 23 53 25 0d 02 f8 11 |.#S%+16:|.#S%....|
|000005d0| de 20 73 70 72 69 74 65 | 73 25 20 54 25 0d 03 02 |. sprite|s% T%...|
|000005e0| 1d 21 73 70 72 69 74 65 | 73 25 3d 54 25 3a 73 70 |.!sprite|s%=T%:sp|
|000005f0| 72 69 74 65 73 25 21 38 | 3d 31 0d 03 0c 22 c8 99 |rites%!8|=1..."..|
|00000600| 20 22 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 2c 26 | "OS_Spr|iteOp",&|
|00000610| 31 30 39 2c 73 70 72 69 | 74 65 73 25 0d 03 16 39 |109,spri|tes%...9|
|00000620| c8 99 20 22 4f 53 5f 53 | 70 72 69 74 65 4f 70 22 |.. "OS_S|priteOp"|
|00000630| 2c 26 31 30 41 2c 73 70 | 72 69 74 65 73 25 2c 22 |,&10A,sp|rites%,"|
|00000640| 3c 42 75 63 6b 79 24 44 | 69 72 3e 2e 21 53 70 72 |<Bucky$D|ir>.!Spr|
|00000650| 69 74 65 73 22 0d 03 20 | 0d de 20 71 25 20 26 32 |ites".. |.. q% &2|
|00000660| 30 30 0d 03 2a 36 21 71 | 25 3d 2d 31 3a 71 25 21 |00..*6!q|%=-1:q%!|
|00000670| 34 3d 30 3a 71 25 21 38 | 3d 30 3a 71 25 21 31 32 |4=0:q%!8|=0:q%!12|
|00000680| 3d 36 38 3a 71 25 21 31 | 36 3d 36 38 3a 71 25 21 |=68:q%!1|6=68:q%!|
|00000690| 32 30 3d 26 32 31 30 32 | 0d 03 34 15 73 70 6e 61 |20=&2102|..4.spna|
|000006a0| 6d 65 24 3d 22 21 42 75 | 63 6b 79 73 22 0d 03 3e |me$="!Bu|ckys"..>|
|000006b0| 29 de 20 71 25 21 32 34 | 20 28 a9 73 70 6e 61 6d |). q%!24| (.spnam|
|000006c0| 65 24 2b 31 29 3a 24 28 | 71 25 21 32 34 29 3d 73 |e$+1):$(|q%!24)=s|
|000006d0| 70 6e 61 6d 65 24 0d 03 | 48 12 71 25 21 32 38 3d |pname$..|H.q%!28=|
|000006e0| 73 70 72 69 74 65 73 25 | 0d 03 52 14 71 25 21 33 |sprites%|..R.q%!3|
|000006f0| 32 3d a9 73 70 6e 61 6d | 65 24 2b 31 0d 03 5c 22 |2=.spnam|e$+1..\"|
|00000700| c8 99 20 22 57 69 6d 70 | 5f 43 72 65 61 74 65 49 |.. "Wimp|_CreateI|
|00000710| 63 6f 6e 22 2c 2c 71 25 | 20 b8 20 69 63 25 0d 03 |con",,q%| . ic%..|
|00000720| 66 05 e1 0d 03 70 04 0d | 03 7a 0b dd 20 f2 4d 45 |f....p..|.z.. .ME|
|00000730| 4e 55 0d 03 84 36 c8 99 | 20 22 57 69 6d 70 5f 43 |NU...6..| "Wimp_C|
|00000740| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 43 75 72 72 |reateMen|u",,Curr|
|00000750| 65 6e 74 4d 65 6e 75 25 | 2c 77 69 6e 64 25 21 30 |entMenu%|,wind%!0|
|00000760| 2c 77 69 6e 64 25 21 34 | 0d 03 8e 05 e1 0d 03 98 |,wind%!4|........|
|00000770| 04 0d 03 a2 0f dd 20 f2 | 49 6e 69 74 4d 65 6e 75 |...... .|InitMenu|
|00000780| 0d 03 ac 08 c8 97 20 ee | 0d 03 b6 0e 4e 49 74 65 |...... .|....NIte|
|00000790| 6d 73 25 3d 31 35 0d 03 | c0 17 de 20 50 6f 69 6e |ms%=15..|... Poin|
|000007a0| 74 65 72 25 28 4e 49 74 | 65 6d 73 25 29 0d 03 ca |ter%(NIt|ems%)...|
|000007b0| 52 4c 42 55 46 46 25 3d | 38 30 2a 4e 49 74 65 6d |RLBUFF%=|80*NItem|
|000007c0| 73 25 3a de 20 62 75 66 | 66 65 72 25 20 4c 42 55 |s%:. buf|fer% LBU|
|000007d0| 46 46 25 3a 54 42 55 46 | 46 25 3d 62 75 66 66 65 |FF%:TBUF|F%=buffe|
|000007e0| 72 25 3a f4 20 53 50 41 | 43 45 20 46 4f 52 20 49 |r%:. SPA|CE FOR I|
|000007f0| 4e 44 49 52 45 43 54 45 | 44 20 4e 41 4d 45 53 0d |NDIRECTE|D NAMES.|
|00000800| 03 d4 12 de 20 53 75 62 | 4d 65 6e 75 25 28 32 30 |.... Sub|Menu%(20|
|00000810| 29 0d 03 de 26 44 25 3d | 32 30 3a de 20 4d 65 6e |)...&D%=|20:. Men|
|00000820| 75 24 28 44 25 29 2c 41 | 25 28 44 25 29 2c 4d 65 |u$(D%),A|%(D%),Me|
|00000830| 6e 75 25 28 44 25 29 0d | 03 e8 04 0d 03 f2 04 0d |nu%(D%).|........|
|00000840| 03 fc 04 0d 04 06 08 f7 | 20 2b 31 0d 04 10 15 dc |........| +1.....|
|00000850| 20 22 53 6d 61 6c 6c 20 | 61 74 6f 6d 73 22 2c 31 | "Small |atoms",1|
|00000860| 0d 04 1a 13 dc 20 22 42 | 69 67 20 61 74 6f 6d 73 |..... "B|ig atoms|
|00000870| 22 2c 31 0d 04 24 0f dc | 20 22 4c 69 6e 65 73 22 |",1..$..| "Lines"|
|00000880| 2c 31 0d 04 2e 12 dc 20 | 22 53 75 72 66 61 63 65 |,1..... |"Surface|
|00000890| 73 22 2c 31 0d 04 38 0d | dc 20 22 45 4e 44 22 2c |s",1..8.|. "END",|
|000008a0| 30 0d 04 42 04 0d 04 4c | 04 0d 04 56 04 0d 04 60 |0..B...L|...V...`|
|000008b0| 48 42 6c 61 6e 6b 73 3d | 30 3a 49 25 3d 2d 31 3a |HBlanks=|0:I%=-1:|
|000008c0| f5 20 49 25 3d 49 25 2b | 31 3a f3 20 4d 65 6e 75 |. I%=I%+|1:. Menu|
|000008d0| 24 28 49 25 29 2c 41 25 | 28 49 25 29 3a e7 20 4d |$(I%),A%|(I%):. M|
|000008e0| 65 6e 75 24 28 49 25 29 | 3d 22 22 3a 42 6c 61 6e |enu$(I%)|="":Blan|
|000008f0| 6b 73 2b 3d 31 0d 04 6a | 22 fd 20 4d 65 6e 75 24 |ks+=1..j|". Menu$|
|00000900| 28 49 25 29 3d 22 45 4e | 44 22 3a 49 54 45 4d 53 |(I%)="EN|D":ITEMS|
|00000910| 30 25 3d 49 25 2d 31 0d | 04 74 04 0d 04 7e 1d de |0%=I%-1.|.t...~..|
|00000920| 20 6d 65 6e 75 31 25 20 | 32 34 2a 49 54 45 4d 53 | menu1% |24*ITEMS|
|00000930| 30 25 2b 32 38 2b 32 34 | 0d 04 88 13 53 75 62 4d |0%+28+24|....SubM|
|00000940| 65 6e 75 25 28 29 3d 28 | 2d 31 29 0d 04 92 46 f2 |enu%()=(|-1)...F.|
|00000950| 53 65 74 55 70 4d 65 6e | 75 28 6d 65 6e 75 31 25 |SetUpMen|u(menu1%|
|00000960| 2c 22 42 75 63 6b 79 73 | 22 2c 49 54 45 4d 53 30 |,"Buckys|",ITEMS0|
|00000970| 25 2c 4d 65 6e 75 24 28 | 29 2c 53 75 62 4d 65 6e |%,Menu$(|),SubMen|
|00000980| 75 25 28 29 29 3a f4 20 | 4d 41 49 4e 20 4d 45 4e |u%()):. |MAIN MEN|
|00000990| 55 0d 04 9c 04 0d 04 a6 | 08 f7 20 2b 31 0d 04 b0 |U.......|.. +1...|
|000009a0| 15 dc 20 22 49 6e 66 6f | 72 6d 61 74 69 6f 6e 22 |.. "Info|rmation"|
|000009b0| 2c 31 0d 04 ba 0f dc 20 | 22 50 61 75 73 65 22 2c |,1..... |"Pause",|
|000009c0| 31 0d 04 c4 11 dc 20 22 | 44 69 73 70 6c 61 79 22 |1..... "|Display"|
|000009d0| 2c 31 0d 04 ce 0a dc 20 | 22 22 2c 30 0d 04 d8 0e |,1..... |"",0....|
|000009e0| dc 20 22 51 75 69 74 22 | 2c 31 0d 04 e2 0d dc 20 |. "Quit"|,1..... |
|000009f0| 22 45 4e 44 22 2c 30 0d | 04 ec 04 0d 04 f6 04 0d |"END",0.|........|
|00000a00| 05 00 04 0d 05 0a 48 42 | 6c 61 6e 6b 73 3d 30 3a |......HB|lanks=0:|
|00000a10| 49 25 3d 2d 31 3a f5 20 | 49 25 3d 49 25 2b 31 3a |I%=-1:. |I%=I%+1:|
|00000a20| f3 20 4d 65 6e 75 24 28 | 49 25 29 2c 41 25 28 49 |. Menu$(|I%),A%(I|
|00000a30| 25 29 3a e7 20 4d 65 6e | 75 24 28 49 25 29 3d 22 |%):. Men|u$(I%)="|
|00000a40| 22 3a 42 6c 61 6e 6b 73 | 2b 3d 31 0d 05 14 2e e7 |":Blanks|+=1.....|
|00000a50| 20 4d 65 6e 75 24 28 49 | 25 29 3d 22 49 6e 66 6f | Menu$(I|%)="Info|
|00000a60| 72 6d 61 74 69 6f 6e 22 | 20 4d 49 6e 66 6f 72 6d |rmation"| MInform|
|00000a70| 61 74 69 6f 6e 25 3d 49 | 25 0d 05 1e 22 e7 20 4d |ation%=I|%...". M|
|00000a80| 65 6e 75 24 28 49 25 29 | 3d 22 50 61 75 73 65 22 |enu$(I%)|="Pause"|
|00000a90| 20 4d 50 61 75 73 65 25 | 3d 49 25 0d 05 28 26 e7 | MPause%|=I%..(&.|
|00000aa0| 20 4d 65 6e 75 24 28 49 | 25 29 3d 22 44 69 73 70 | Menu$(I|%)="Disp|
|00000ab0| 6c 61 79 22 20 4d 44 69 | 73 70 6c 61 79 25 3d 49 |lay" MDi|splay%=I|
|00000ac0| 25 0d 05 32 04 0d 05 3c | 22 fd 20 4d 65 6e 75 24 |%..2...<|". Menu$|
|00000ad0| 28 49 25 29 3d 22 45 4e | 44 22 3a 49 54 45 4d 53 |(I%)="EN|D":ITEMS|
|00000ae0| 30 25 3d 49 25 2d 31 0d | 05 46 18 4d 51 75 69 74 |0%=I%-1.|.F.MQuit|
|00000af0| 3d 49 54 45 4d 53 30 25 | 2d 42 6c 61 6e 6b 73 0d |=ITEMS0%|-Blanks.|
|00000b00| 05 50 04 0d 05 5a 17 e7 | 20 49 54 45 4d 53 30 25 |.P...Z..| ITEMS0%|
|00000b10| 3e 4e 49 74 65 6d 73 25 | 20 fa 0d 05 64 04 0d 05 |>NItems%| ...d...|
|00000b20| 6e 1d de 20 6d 65 6e 75 | 30 25 20 32 34 2a 49 54 |n.. menu|0% 24*IT|
|00000b30| 45 4d 53 30 25 2b 32 38 | 2b 32 34 0d 05 78 16 53 |EMS0%+28|+24..x.S|
|00000b40| 75 62 4d 65 6e 75 25 28 | 32 29 3d 6d 65 6e 75 31 |ubMenu%(|2)=menu1|
|00000b50| 25 0d 05 82 46 f2 53 65 | 74 55 70 4d 65 6e 75 28 |%...F.Se|tUpMenu(|
|00000b60| 6d 65 6e 75 30 25 2c 22 | 42 75 63 6b 79 73 22 2c |menu0%,"|Buckys",|
|00000b70| 49 54 45 4d 53 30 25 2c | 4d 65 6e 75 24 28 29 2c |ITEMS0%,|Menu$(),|
|00000b80| 53 75 62 4d 65 6e 75 25 | 28 29 29 3a f4 20 4d 41 |SubMenu%|()):. MA|
|00000b90| 49 4e 20 4d 45 4e 55 0d | 05 8c 17 43 75 72 72 65 |IN MENU.|...Curre|
|00000ba0| 6e 74 4d 65 6e 75 25 3d | 6d 65 6e 75 30 25 0d 05 |ntMenu%=|menu0%..|
|00000bb0| 96 04 0d 05 a0 25 53 65 | 74 32 32 25 3d 31 3c 3c |.....%Se|t22%=1<<|
|00000bc0| 32 32 3a 55 6e 53 65 74 | 32 32 25 3d 28 2d 31 29 |22:UnSet|22%=(-1)|
|00000bd0| 2d 53 65 74 32 32 25 0d | 05 aa 04 0d 05 b4 05 e1 |-Set22%.|........|
|00000be0| 0d 05 be 04 0d 05 c8 3a | dd 20 f2 53 65 74 55 70 |.......:|. .SetUp|
|00000bf0| 4d 65 6e 75 28 6d 65 6e | 75 25 2c 54 69 74 6c 65 |Menu(men|u%,Title|
|00000c00| 24 2c 49 74 65 6d 73 25 | 2c f8 20 4d 65 6e 75 24 |$,Items%|,. Menu$|
|00000c10| 28 29 2c 53 75 62 4d 65 | 6e 75 25 28 29 29 0d 05 |(),SubMe|nu%())..|
|00000c20| d2 13 ea 20 58 25 2c 4e | 25 2c 49 2c 58 2c 59 2c |... X%,N|%,I,X,Y,|
|00000c30| 5a 0d 05 dc 04 0d 05 e6 | 2c 4d 41 58 4c 45 4e 25 |Z.......|,MAXLEN%|
|00000c40| 3d 30 20 20 20 20 20 20 | 20 20 20 3a f4 20 4d 41 |=0 | :. MA|
|00000c50| 58 20 4c 45 4e 47 54 48 | 20 4f 46 20 49 54 45 4d |X LENGTH| OF ITEM|
|00000c60| 53 0d 05 f0 3f e3 20 58 | 25 3d 30 20 b8 20 49 74 |S...?. X|%=0 . It|
|00000c70| 65 6d 73 25 3a e7 20 a9 | 28 4d 65 6e 75 24 28 58 |ems%:. .|(Menu$(X|
|00000c80| 25 29 29 3e 4d 41 58 4c | 45 4e 25 20 4d 41 58 4c |%))>MAXL|EN% MAXL|
|00000c90| 45 4e 25 3d a9 28 4d 65 | 6e 75 24 28 58 25 29 29 |EN%=.(Me|nu$(X%))|
|00000ca0| 0d 05 fa 05 ed 0d 06 04 | 04 0d 06 0e 27 24 28 6d |........|....'$(m|
|00000cb0| 65 6e 75 25 2b 30 30 29 | 3d 54 69 74 6c 65 24 3a |enu%+00)|=Title$:|
|00000cc0| f4 20 54 49 54 4c 45 20 | 31 32 20 42 59 54 45 53 |. TITLE |12 BYTES|
|00000cd0| 0d 06 18 2d 6d 65 6e 75 | 25 3f 31 32 20 3d 37 3a |...-menu|%?12 =7:|
|00000ce0| f4 20 54 49 54 4c 45 20 | 46 4f 52 45 47 4e 44 2e |. TITLE |FOREGND.|
|00000cf0| 53 54 41 4e 44 41 52 44 | 20 49 53 20 37 0d 06 22 |STANDARD| IS 7.."|
|00000d00| 1f 6d 65 6e 75 25 3f 31 | 33 20 3d 32 3a f4 20 54 |.menu%?1|3 =2:. T|
|00000d10| 49 54 4c 45 20 42 41 43 | 4b 2e 20 32 0d 06 2c 1c |ITLE BAC|K. 2..,.|
|00000d20| 6d 65 6e 75 25 3f 31 34 | 20 3d 37 3a f4 20 57 41 |menu%?14| =7:. WA|
|00000d30| 20 46 4f 52 45 2e 20 37 | 0d 06 36 1c 6d 65 6e 75 | FORE. 7|..6.menu|
|00000d40| 25 3f 31 35 20 3d 30 3a | f4 20 57 41 20 42 41 43 |%?15 =0:|. WA BAC|
|00000d50| 4b 2e 20 30 0d 06 40 1a | 6d 65 6e 75 25 21 31 36 |K. 0..@.|menu%!16|
|00000d60| 20 3d 32 34 2a 38 3a f4 | 20 57 49 44 54 48 0d 06 | =24*8:.| WIDTH..|
|00000d70| 4a 26 6d 65 6e 75 25 21 | 32 30 20 3d 34 34 3a f4 |J&menu%!|20 =44:.|
|00000d80| 20 48 45 49 47 48 54 20 | 4f 46 20 45 41 43 48 20 | HEIGHT |OF EACH |
|00000d90| 49 54 45 4d 0d 06 54 1f | 6d 65 6e 75 25 21 32 34 |ITEM..T.|menu%!24|
|00000da0| 20 3d 30 20 3a f4 20 56 | 45 52 54 49 43 41 4c 20 | =0 :. V|ERTICAL |
|00000db0| 47 41 50 0d 06 5e 2d 6d | 65 6e 75 25 21 32 38 20 |GAP..^-m|enu%!28 |
|00000dc0| 3d 30 20 3a f4 20 4d 45 | 4e 55 20 49 54 45 4d 53 |=0 :. ME|NU ITEMS|
|00000dd0| 20 2d 20 32 34 20 42 59 | 54 45 53 20 45 41 43 48 | - 24 BY|TES EACH|
|00000de0| 0d 06 68 05 3a 0d 06 72 | 19 4d 45 4e 55 49 54 45 |..h.:..r|.MENUITE|
|00000df0| 4d 25 3d 6d 65 6e 75 25 | 2b 32 38 2d 32 34 0d 06 |M%=menu%|+28-24..|
|00000e00| 7c 04 0d 06 86 13 e3 20 | 49 25 3d 30 20 b8 20 49 ||...... |I%=0 . I|
|00000e10| 74 65 6d 73 25 0d 06 90 | 11 6f 70 24 3d 4d 65 6e |tems%...|.op$=Men|
|00000e20| 75 24 28 49 25 29 0d 06 | 9a 0f e7 20 a9 20 6f 70 |u$(I%)..|... . op|
|00000e30| 24 3d 30 20 8c 0d 06 a4 | 1a 20 20 20 f4 20 49 54 |$=0 ....|. . IT|
|00000e40| 53 20 41 20 44 4f 54 54 | 45 44 20 4c 49 4e 45 0d |S A DOTT|ED LINE.|
|00000e50| 06 ae 39 20 20 20 e7 20 | 49 25 3d 30 20 f1 22 43 |..9 . |I%=0 ."C|
|00000e60| 41 4e 54 20 48 41 56 45 | 20 41 20 44 4f 54 54 45 |ANT HAVE| A DOTTE|
|00000e70| 44 20 4c 49 4e 45 20 55 | 4e 44 45 52 20 4e 4f 20 |D LINE U|NDER NO |
|00000e80| 49 54 45 4d 53 22 3a fa | 0d 06 b8 42 20 20 20 21 |ITEMS":.|...B !|
|00000e90| 28 4d 45 4e 55 49 54 45 | 4d 25 29 3d 21 28 4d 45 |(MENUITE|M%)=!(ME|
|00000ea0| 4e 55 49 54 45 4d 25 29 | 20 84 20 32 3a f4 20 44 |NUITEM%)| . 2:. D|
|00000eb0| 4f 54 54 45 44 20 4c 49 | 4e 45 20 55 4e 44 45 52 |OTTED LI|NE UNDER|
|00000ec0| 20 50 52 45 56 20 49 54 | 45 4d 0d 06 c2 05 cc 0d | PREV IT|EM......|
|00000ed0| 06 cc 38 20 20 20 6f 70 | 24 3d 6f 70 24 2b bd 31 |..8 op|$=op$+.1|
|00000ee0| 33 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |3 | |
|00000ef0| 20 20 20 20 20 20 20 20 | 20 20 20 3a f4 20 4d 45 | | :. ME|
|00000f00| 4e 55 20 49 54 45 4d 0d | 06 d6 14 20 20 20 4d 45 |NU ITEM.|... ME|
|00000f10| 4e 55 49 54 45 4d 25 2b | 3d 32 34 0d 06 e0 30 20 |NUITEM%+|=24...0 |
|00000f20| 20 20 e7 20 41 25 28 49 | 25 29 3d 32 20 8c 20 21 | . A%(I|%)=2 . !|
|00000f30| 4d 45 4e 55 49 54 45 4d | 25 3d 31 3a 20 8b 20 21 |MENUITEM|%=1: . !|
|00000f40| 4d 45 4e 55 49 54 45 4d | 25 3d 30 0d 06 ea 2e 20 |MENUITEM|%=0.... |
|00000f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f60| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 42 49 54 | | :. BIT|
|00000f70| 20 30 20 2d 20 54 49 43 | 4b 0d 06 f4 3b 20 20 20 | 0 - TIC|K...; |
|00000f80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f90| 20 20 20 20 20 20 20 20 | 3a f4 20 31 20 2d 20 44 | |:. 1 - D|
|00000fa0| 4f 54 54 45 44 20 4c 49 | 4e 45 20 46 4f 4c 4c 4f |OTTED LI|NE FOLLO|
|00000fb0| 57 49 4e 47 0d 06 fe 34 | 20 20 20 20 20 20 20 20 |WING...4| |
|00000fc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000fd0| 20 20 20 3a f4 20 32 20 | 2d 20 57 52 49 54 45 41 | :. 2 |- WRITEA|
|00000fe0| 42 4c 45 20 54 45 58 54 | 0d 07 08 42 20 20 20 20 |BLE TEXT|...B |
|00000ff0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001000| 20 20 20 20 20 20 20 3a | f4 20 33 20 2d 20 4d 45 | :|. 3 - ME|
|00001010| 53 53 41 47 45 20 4f 4e | 20 6d 6f 76 69 6e 67 20 |SSAGE ON| moving |
|00001020| 74 6f 20 53 55 42 4d 45 | 4e 55 0d 07 12 2f 20 20 |to SUBME|NU.../ |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001040| 20 20 20 20 20 20 20 20 | 20 3a f4 20 34 2d 36 20 | | :. 4-6 |
|00001050| 6d 75 73 74 20 62 65 20 | 30 0d 07 1c 2f 20 20 20 |must be |0.../ |
|00001060| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001070| 20 20 20 20 20 20 20 20 | 3a f4 20 37 20 2d 20 4c | |:. 7 - L|
|00001080| 41 53 54 20 49 54 45 4d | 0d 07 26 04 0d 07 30 3f |AST ITEM|..&...0?|
|00001090| 20 20 20 21 28 4d 45 4e | 55 49 54 45 4d 25 2b 34 | !(MEN|UITEM%+4|
|000010a0| 29 3d 53 75 62 4d 65 6e | 75 25 28 49 25 29 20 20 |)=SubMen|u%(I%) |
|000010b0| 20 20 20 20 20 20 20 20 | 20 3a f4 20 53 55 42 4d | | :. SUBM|
|000010c0| 45 4e 55 20 50 4f 49 4e | 54 45 52 0d 07 3a 04 0d |ENU POIN|TER..:..|
|000010d0| 07 44 3d 20 20 20 53 41 | 4e 44 59 25 3d 28 37 3c |.D= SA|NDY%=(7<|
|000010e0| 3c 32 34 29 2b 28 30 3c | 3c 32 38 29 3a f4 20 43 |<24)+(0<|<28):. C|
|000010f0| 4f 4c 4f 55 52 53 20 32 | 38 2d 42 41 43 4b 20 32 |OLOURS 2|8-BACK 2|
|00001100| 34 2d 46 4f 52 45 47 52 | 4f 55 4e 44 0d 07 4e 39 |4-FOREGR|OUND..N9|
|00001110| 20 20 20 53 41 4e 44 59 | 25 3d 53 41 4e 44 59 25 | SANDY|%=SANDY%|
|00001120| 2b 25 31 30 30 30 30 30 | 30 30 31 3a f4 20 49 54 |+%100000|001:. IT|
|00001130| 53 20 49 4e 44 49 52 45 | 43 54 45 44 20 41 4e 44 |S INDIRE|CTED AND|
|00001140| 20 54 45 58 54 0d 07 58 | 38 20 20 20 20 20 20 20 | TEXT..X|8 |
|00001150| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001160| 20 20 20 20 3a f4 20 20 | 20 20 20 20 20 20 20 38 | :. | 8|
|00001170| 20 20 20 20 20 20 20 20 | 20 20 20 20 30 0d 07 62 | | 0..b|
|00001180| 28 20 20 20 e7 20 41 25 | 28 49 25 29 3d 30 20 53 |( . A%|(I%)=0 S|
|00001190| 41 4e 44 59 25 2b 3d 31 | 3c 3c 32 32 3a f4 20 53 |ANDY%+=1|<<22:. S|
|000011a0| 48 41 44 45 44 0d 07 6c | 04 0d 07 76 1a 20 20 20 |HADED..l|...v. |
|000011b0| 4d 65 6e 75 25 28 49 25 | 29 3d 4d 45 4e 55 49 54 |Menu%(I%|)=MENUIT|
|000011c0| 45 4d 25 0d 07 80 04 0d | 07 8a 1c 20 20 20 21 28 |EM%.....|... !(|
|000011d0| 4d 45 4e 55 49 54 45 4d | 25 2b 38 29 3d 53 41 4e |MENUITEM|%+8)=SAN|
|000011e0| 44 59 25 0d 07 94 04 0d | 07 9e 1f 20 20 20 f4 20 |DY%.....|... . |
|000011f0| 4d 65 6e 75 20 49 63 6f | 6e 20 64 61 74 61 20 20 |Menu Ico|n data |
|00001200| 70 2e 31 32 32 37 0d 07 | a8 35 20 20 20 21 28 4d |p.1227..|.5 !(M|
|00001210| 45 4e 55 49 54 45 4d 25 | 2b 31 32 29 3d 54 42 55 |ENUITEM%|+12)=TBU|
|00001220| 46 46 25 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |FF%: | |
|00001230| 20 20 f4 20 61 64 64 72 | 65 73 73 0d 07 b2 38 20 | . addr|ess...8 |
|00001240| 20 20 21 28 4d 45 4e 55 | 49 54 45 4d 25 2b 31 36 | !(MENU|ITEM%+16|
|00001250| 29 3d 2d 31 3a 20 20 20 | 20 20 20 20 20 20 20 20 |)=-1: | |
|00001260| 20 20 20 20 20 20 20 f4 | 20 76 61 6c 69 64 61 74 | .| validat|
|00001270| 69 6f 6e 0d 07 bc 24 20 | 20 20 21 28 4d 45 4e 55 |ion...$ | !(MENU|
|00001280| 49 54 45 4d 25 2b 32 30 | 29 3d 38 30 3a f4 20 4c |ITEM%+20|)=80:. L|
|00001290| 45 4e 28 6f 70 24 29 0d | 07 c6 29 20 20 20 24 54 |EN(op$).|..) $T|
|000012a0| 42 55 46 46 25 3d 6f 70 | 24 3a f4 20 49 54 53 20 |BUFF%=op|$:. ITS |
|000012b0| 4c 45 4e 47 54 48 20 41 | 4e 44 20 56 41 4c 55 45 |LENGTH A|ND VALUE|
|000012c0| 0d 07 d0 1a 20 20 20 50 | 6f 69 6e 74 65 72 25 28 |.... P|ointer%(|
|000012d0| 49 25 29 3d 54 42 55 46 | 46 25 0d 07 da 1b 20 20 |I%)=TBUF|F%.... |
|000012e0| 20 54 42 55 46 46 25 2b | 3d 38 30 3a f4 4c 45 4e | TBUFF%+|=80:.LEN|
|000012f0| 28 6f 70 24 29 0d 07 e4 | 05 cd 0d 07 ee 08 ed 20 |(op$)...|....... |
|00001300| 49 25 0d 07 f8 04 0d 08 | 02 35 21 28 4d 45 4e 55 |I%......|.5!(MENU|
|00001310| 49 54 45 4d 25 29 3d 28 | 21 28 4d 45 4e 55 49 54 |ITEM%)=(|!(MENUIT|
|00001320| 45 4d 25 29 29 20 84 20 | 26 38 30 20 20 20 20 3a |EM%)) . |&80 :|
|00001330| f4 20 4c 41 53 54 20 49 | 54 45 4d 0d 08 0c 20 e7 |. LAST I|TEM... .|
|00001340| 20 54 42 55 46 46 25 3e | 62 75 66 66 65 72 25 2b | TBUFF%>|buffer%+|
|00001350| 4c 42 55 46 46 25 20 ef | 37 3a fa 0d 08 16 05 e1 |LBUFF% .|7:......|
|00001360| 0d 08 20 04 0d 08 2a 04 | 0d 08 34 0f dd 20 f2 49 |.. ...*.|..4.. .I|
|00001370| 6e 69 74 57 69 6d 70 0d | 08 3e 22 53 69 7a 65 49 |nitWimp.|.>"SizeI|
|00001380| 63 6f 6e 73 25 3d 31 36 | 30 30 3a 53 69 7a 65 57 |cons%=16|00:SizeW|
|00001390| 69 6e 64 25 3d 32 35 30 | 30 0d 08 48 35 de 20 77 |ind%=250|0..H5. w|
|000013a0| 69 6e 64 25 20 53 69 7a | 65 57 69 6e 64 25 3a de |ind% Siz|eWind%:.|
|000013b0| 20 69 63 6f 6e 25 20 32 | 30 30 3a de 20 69 63 6f | icon% 2|00:. ico|
|000013c0| 6e 68 25 20 53 69 7a 65 | 49 63 6f 6e 73 25 0d 08 |nh% Size|Icons%..|
|000013d0| 52 2a de 20 50 6f 69 6e | 74 65 72 20 32 30 3a f4 |R*. Poin|ter 20:.|
|000013e0| 20 46 6f 72 20 70 6f 69 | 6e 74 65 72 20 69 6e 66 | For poi|nter inf|
|000013f0| 6f 72 6d 61 74 69 6f 6e | 0d 08 5c 0b 42 61 63 6b |ormation|..\.Back|
|00001400| 25 3d 38 0d 08 66 0b 71 | 75 69 74 25 3d a3 0d 08 |%=8..f.q|uit%=...|
|00001410| 70 11 24 77 69 6e 64 25 | 3d 22 54 41 53 4b 22 0d |p.$wind%|="TASK".|
|00001420| 08 7a 18 c8 99 20 22 57 | 69 6d 70 5f 53 65 74 4d |.z... "W|imp_SetM|
|00001430| 6f 64 65 22 2c 31 32 0d | 08 84 3b c8 99 20 22 57 |ode",12.|..;.. "W|
|00001440| 69 6d 70 5f 49 6e 69 74 | 69 61 6c 69 73 65 22 2c |imp_Init|ialise",|
|00001450| 32 30 30 2c 21 77 69 6e | 64 25 2c 22 54 65 73 74 |200,!win|d%,"Test|
|00001460| 22 20 b8 20 76 65 72 73 | 69 6f 6e 25 2c 74 61 73 |" . vers|ion%,tas|
|00001470| 6b 25 0d 08 8e 04 0d 08 | 98 1c f4 20 20 20 20 20 |k%......|... |
|00001480| 20 20 20 20 20 43 52 45 | 41 54 45 20 57 49 4e 44 | CRE|ATE WIND|
|00001490| 4f 57 0d 08 a2 04 0d 08 | ac 33 c8 99 20 22 57 69 |OW......|.3.. "Wi|
|000014a0| 6d 70 5f 4f 70 65 6e 54 | 65 6d 70 6c 61 74 65 22 |mp_OpenT|emplate"|
|000014b0| 2c 2c 22 3c 42 75 63 6b | 79 24 44 69 72 3e 2e 54 |,,"<Buck|y$Dir>.T|
|000014c0| 45 4d 50 4c 41 54 45 53 | 22 0d 08 b6 4b c8 99 20 |EMPLATES|"...K.. |
|000014d0| 22 57 69 6d 70 5f 4c 6f | 61 64 54 65 6d 70 6c 61 |"Wimp_Lo|adTempla|
|000014e0| 74 65 22 2c 2c 77 69 6e | 64 25 2c 69 63 6f 6e 25 |te",,win|d%,icon%|
|000014f0| 2c 69 63 6f 6e 25 2b 32 | 30 30 2c 2d 31 2c 22 41 |,icon%+2|00,-1,"A|
|00001500| 74 6f 6d 69 63 4f 72 62 | 73 22 20 b8 20 2c 2c 6e |tomicOrb|s" . ,,n|
|00001510| 65 78 74 25 0d 08 c0 04 | 0d 08 ca 24 77 69 6e 64 |ext%....|...$wind|
|00001520| 25 21 30 3d 30 3a f4 20 | 4d 49 4e 20 58 20 20 20 |%!0=0:. |MIN X |
|00001530| 20 41 4c 4c 20 56 49 53 | 49 42 4c 45 0d 08 d4 18 | ALL VIS|IBLE....|
|00001540| 77 69 6e 64 25 21 34 3d | 2d 39 33 32 3a f4 20 4d |wind%!4=|-932:. M|
|00001550| 49 4e 20 59 0d 08 de 18 | 77 69 6e 64 25 21 38 3d |IN Y....|wind%!8=|
|00001560| 31 32 33 36 3a f4 20 4d | 41 58 20 58 0d 08 e8 16 |1236:. M|AX X....|
|00001570| 77 69 6e 64 25 21 31 32 | 3d 30 3a f4 20 4d 41 58 |wind%!12|=0:. MAX|
|00001580| 20 59 0d 08 f2 04 0d 08 | fc 1b f4 20 43 52 45 41 | Y......|... CREA|
|00001590| 54 45 20 41 20 41 20 4c | 41 52 47 45 20 49 43 4f |TE A A L|ARGE ICO|
|000015a0| 4e 0d 09 06 0e 77 69 6e | 64 25 21 38 34 3d 31 0d |N....win|d%!84=1.|
|000015b0| 09 10 1d 77 69 6e 64 25 | 21 38 38 3d 77 69 6e 64 |...wind%|!88=wind|
|000015c0| 25 21 34 30 3a f4 20 4d | 49 4e 20 58 0d 09 1a 1d |%!40:. M|IN X....|
|000015d0| 77 69 6e 64 25 21 39 32 | 3d 77 69 6e 64 25 21 34 |wind%!92|=wind%!4|
|000015e0| 34 3a f4 20 4d 49 4e 20 | 59 0d 09 24 1d 77 69 6e |4:. MIN |Y..$.win|
|000015f0| 64 25 21 39 36 3d 77 69 | 6e 64 25 21 34 38 3a f4 |d%!96=wi|nd%!48:.|
|00001600| 20 4d 61 78 20 58 0d 09 | 2e 1e 77 69 6e 64 25 21 | Max X..|..wind%!|
|00001610| 31 30 30 3d 77 69 6e 64 | 25 21 35 32 3a f4 20 4d |100=wind|%!52:. M|
|00001620| 61 78 20 59 0d 09 38 5f | 77 69 6e 64 25 21 31 30 |ax Y..8_|wind%!10|
|00001630| 34 3d 25 31 30 30 30 30 | 31 30 30 30 30 30 30 31 |4=%10000|10000001|
|00001640| 30 3a f4 20 49 63 6f 6e | 20 46 6c 61 67 73 2e 20 |0:. Icon| Flags. |
|00001650| 49 6e 64 69 72 65 63 74 | 65 64 20 53 70 72 69 74 |Indirect|ed Sprit|
|00001660| 65 2e 20 43 6c 69 63 6b | 20 6e 6f 74 69 66 69 65 |e. Click| notifie|
|00001670| 73 20 74 61 73 6b 20 28 | 61 75 74 6f 72 65 70 65 |s task (|autorepe|
|00001680| 61 74 29 0d 09 42 04 0d | 09 4c 31 de 20 53 70 72 |at)..B..|.L1. Spr|
|00001690| 69 74 65 6e 61 6d 65 25 | 20 32 30 3a 24 53 70 72 |itename%| 20:$Spr|
|000016a0| 69 74 65 6e 61 6d 65 25 | 3d 22 44 69 61 67 72 61 |itename%|="Diagra|
|000016b0| 6d 53 70 72 69 74 65 22 | 0d 09 56 31 77 69 6e 64 |mSprite"|..V1wind|
|000016c0| 25 21 31 30 38 3d 53 70 | 72 69 74 65 6e 61 6d 65 |%!108=Sp|ritename|
|000016d0| 25 3a f4 20 70 6f 69 6e | 74 65 72 20 74 6f 20 73 |%:. poin|ter to s|
|000016e0| 70 72 69 74 65 6e 61 6d | 65 0d 09 60 5e 4c 25 3d |pritenam|e..`^L%=|
|000016f0| 31 30 30 2a 31 30 32 34 | 3a de 20 53 70 72 69 74 |100*1024|:. Sprit|
|00001700| 65 50 6f 6f 6c 20 4c 25 | 3a 21 53 70 72 69 74 65 |ePool L%|:!Sprite|
|00001710| 50 6f 6f 6c 3d 4c 25 3a | 53 70 72 69 74 65 50 6f |Pool=L%:|SpritePo|
|00001720| 6f 6c 21 34 3d 30 3a 53 | 70 72 69 74 65 50 6f 6f |ol!4=0:S|pritePoo|
|00001730| 6c 21 38 3d 31 36 3a 53 | 70 72 69 74 65 50 6f 6f |l!8=16:S|pritePoo|
|00001740| 6c 21 31 32 3d 31 36 0d | 09 6a 6f c8 99 20 22 4f |l!12=16.|.jo.. "O|
|00001750| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 32 35 36 2b |S_Sprite|Op",256+|
|00001760| 31 35 2c 53 70 72 69 74 | 65 50 6f 6f 6c 2c 22 44 |15,Sprit|ePool,"D|
|00001770| 69 61 67 72 61 6d 53 70 | 72 69 74 65 22 2c 30 2c |iagramSp|rite",0,|
|00001780| 28 77 69 6e 64 25 21 38 | 29 2f 32 2c 2d 28 77 69 |(wind%!8|)/2,-(wi|
|00001790| 6e 64 25 21 34 29 2f 34 | 2c 31 32 3a f4 20 49 4e |nd%!4)/4|,12:. IN|
|000017a0| 49 54 49 41 4c 49 53 45 | 20 44 69 61 67 72 61 6d |ITIALISE| Diagram|
|000017b0| 53 70 72 69 74 65 0d 09 | 74 49 c8 99 20 22 4f 53 |Sprite..|tI.. "OS|
|000017c0| 5f 53 70 72 69 74 65 4f | 70 22 2c 33 31 36 2c 53 |_SpriteO|p",316,S|
|000017d0| 70 72 69 74 65 50 6f 6f | 6c 2c 22 44 69 61 67 72 |pritePoo|l,"Diagr|
|000017e0| 61 6d 53 70 72 69 74 65 | 22 20 b8 20 52 45 47 30 |amSprite|" . REG0|
|000017f0| 2c 52 45 47 31 2c 52 45 | 47 32 2c 52 45 47 33 0d |,REG1,RE|G2,REG3.|
|00001800| 09 7e 11 e6 20 31 32 38 | 2b 42 61 63 6b 25 3a da |.~.. 128|+Back%:.|
|00001810| 0d 09 88 28 c8 99 20 22 | 4f 53 5f 53 70 72 69 74 |...(.. "|OS_Sprit|
|00001820| 65 4f 70 22 2c 52 45 47 | 30 2c 52 45 47 31 2c 52 |eOp",REG|0,REG1,R|
|00001830| 45 47 32 2c 52 45 47 33 | 0d 09 92 04 0d 09 9c 3a |EG2,REG3|.......:|
|00001840| 77 69 6e 64 25 21 31 31 | 32 3d 53 70 72 69 74 65 |wind%!11|2=Sprite|
|00001850| 50 6f 6f 6c 3a f4 20 70 | 6f 69 6e 74 65 72 20 74 |Pool:. p|ointer t|
|00001860| 6f 20 73 70 72 69 74 65 | 20 63 6f 6e 74 72 6f 6c |o sprite| control|
|00001870| 20 62 6c 6f 63 6b 0d 09 | a6 27 77 69 6e 64 25 21 | block..|.'wind%!|
|00001880| 31 31 36 3d 31 34 3a f4 | 20 6c 65 6e 67 74 68 20 |116=14:.| length |
|00001890| 6f 66 20 73 70 72 69 74 | 65 6e 61 6d 65 0d 09 b0 |of sprit|ename...|
|000018a0| 04 0d 09 ba 04 0d 09 c4 | 32 c8 99 20 22 57 69 6d |........|2.. "Wim|
|000018b0| 70 5f 43 72 65 61 74 65 | 57 69 6e 64 6f 77 22 2c |p_Create|Window",|
|000018c0| 2c 77 69 6e 64 25 20 b8 | 20 44 69 61 67 72 61 6d |,wind% .| Diagram|
|000018d0| 48 61 6e 64 6c 65 25 0d | 09 ce 2e 44 69 61 67 72 |Handle%.|...Diagr|
|000018e0| 61 6d 48 65 69 67 68 74 | 25 3d 2d 77 69 6e 64 25 |amHeight|%=-wind%|
|000018f0| 21 34 34 3a f4 20 57 4f | 52 4b 20 41 52 45 41 20 |!44:. WO|RK AREA |
|00001900| 4d 49 4e 20 59 0d 09 d8 | 2c 44 69 61 67 72 61 6d |MIN Y...|,Diagram|
|00001910| 57 69 64 74 68 25 3d 77 | 69 6e 64 25 21 34 38 3a |Width%=w|ind%!48:|
|00001920| f4 20 57 4f 52 4b 20 41 | 52 45 41 20 4d 41 58 20 |. WORK A|REA MAX |
|00001930| 58 0d 09 e2 3a 77 69 6e | 64 25 21 30 3d 44 69 61 |X...:win|d%!0=Dia|
|00001940| 67 72 61 6d 48 61 6e 64 | 6c 65 25 3a c8 99 20 22 |gramHand|le%:.. "|
|00001950| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00001960| 61 74 65 22 2c 2c 77 69 | 6e 64 25 0d 09 ec 1f c8 |ate",,wi|nd%.....|
|00001970| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00001980| 6f 77 22 2c 2c 77 69 6e | 64 25 0d 09 f6 04 0d 0a |ow",,win|d%......|
|00001990| 00 48 c8 99 20 22 57 69 | 6d 70 5f 4c 6f 61 64 54 |.H.. "Wi|mp_LoadT|
|000019a0| 65 6d 70 6c 61 74 65 22 | 2c 2c 77 69 6e 64 25 2c |emplate"|,,wind%,|
|000019b0| 69 63 6f 6e 68 25 2c 69 | 63 6f 6e 68 25 2b 31 36 |iconh%,i|conh%+16|
|000019c0| 30 30 2c 2d 31 2c 22 48 | 65 6c 70 22 20 b8 20 2c |00,-1,"H|elp" . ,|
|000019d0| 2c 6e 65 78 74 25 0d 0a | 0a 37 f2 53 65 74 55 70 |,next%..|.7.SetUp|
|000019e0| 48 65 6c 70 28 77 69 6e | 64 25 2b 38 38 2c 53 69 |Help(win|d%+88,Si|
|000019f0| 7a 65 57 69 6e 64 25 2d | 31 30 30 2c 6e 65 78 74 |zeWind%-|100,next|
|00001a00| 25 2c 53 69 7a 65 49 63 | 6f 6e 73 25 29 0d 0a 14 |%,SizeIc|ons%)...|
|00001a10| 2f c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |/.. "Wim|p_Create|
|00001a20| 57 69 6e 64 6f 77 22 2c | 2c 77 69 6e 64 25 20 b8 |Window",|,wind% .|
|00001a30| 20 48 65 6c 70 48 61 6e | 64 6c 65 25 0d 0a 1e 1b | HelpHan|dle%....|
|00001a40| c8 99 20 22 57 69 6d 70 | 5f 43 6c 6f 73 65 54 65 |.. "Wimp|_CloseTe|
|00001a50| 6d 70 6c 61 74 65 22 0d | 0a 28 04 0d 0a 32 15 ef |mplate".|.(...2..|
|00001a60| 31 39 2c 31 34 2c 31 36 | 2c 38 30 2c 38 30 2c 30 |19,14,16|,80,80,0|
|00001a70| 0d 0a 3c 18 ef 31 39 2c | 31 2c 32 34 2c 31 35 30 |..<..19,|1,24,150|
|00001a80| 2c 31 35 30 2c 31 35 30 | 0d 0a 46 04 0d 0a 50 1a |,150,150|..F...P.|
|00001a90| 48 65 69 67 68 74 25 3d | 44 69 61 67 72 61 6d 48 |Height%=|DiagramH|
|00001aa0| 65 69 67 68 74 25 0d 0a | 5a 04 0d 0a 64 05 e1 0d |eight%..|Z...d...|
|00001ab0| 0a 6e 04 0d 0a 78 0f dd | 20 f2 4d 65 6e 75 49 74 |.n...x..| .MenuIt|
|00001ac0| 65 6d 0d 0a 82 0d 57 25 | 3d 21 77 69 6e 64 25 0d |em....W%|=!wind%.|
|00001ad0| 0a 8c 04 0d 0a 96 1b e7 | 20 28 57 25 3d 4d 51 75 |........| (W%=MQu|
|00001ae0| 69 74 29 20 71 75 69 74 | 25 3d b9 3a 20 e1 0d 0a |it) quit|%=.: ...|
|00001af0| a0 04 0d 0a aa 18 e7 20 | 57 25 3d 4d 49 6e 66 6f |....... |W%=MInfo|
|00001b00| 72 6d 61 74 69 6f 6e 25 | 20 8c 0d 0a b4 24 77 69 |rmation%| ....$wi|
|00001b10| 6e 64 25 21 30 3d 48 65 | 6c 70 48 61 6e 64 6c 65 |nd%!0=He|lpHandle|
|00001b20| 25 3a f2 43 6c 6f 73 65 | 57 69 6e 64 6f 77 0d 0a |%:.Close|Window..|
|00001b30| be 37 77 69 6e 64 25 21 | 30 3d 48 65 6c 70 48 61 |.7wind%!|0=HelpHa|
|00001b40| 6e 64 6c 65 25 3a c8 99 | 20 22 57 69 6d 70 5f 47 |ndle%:..| "Wimp_G|
|00001b50| 65 74 57 69 6e 64 6f 77 | 53 74 61 74 65 22 2c 2c |etWindow|State",,|
|00001b60| 77 69 6e 64 25 0d 0a c8 | 1f c8 99 20 22 57 69 6d |wind%...|... "Wim|
|00001b70| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 77 |p_OpenWi|ndow",,w|
|00001b80| 69 6e 64 25 0d 0a d2 05 | e1 0d 0a dc 05 cd 0d 0a |ind%....|........|
|00001b90| e6 04 0d 0a f0 1a e7 20 | 57 25 3d 4d 50 61 75 73 |....... |W%=MPaus|
|00001ba0| 65 25 20 52 6f 75 74 65 | 25 3d 31 30 0d 0a fa 04 |e% Route|%=10....|
|00001bb0| 0d 0b 04 3e e7 20 57 25 | 3d 4d 44 69 73 70 6c 61 |...>. W%|=MDispla|
|00001bc0| 79 25 20 42 61 6c 6c 54 | 79 70 65 25 3d 77 69 6e |y% BallT|ype%=win|
|00001bd0| 64 25 21 34 3a e7 20 42 | 61 6c 6c 54 79 70 65 25 |d%!4:. B|allType%|
|00001be0| 3c 30 20 42 61 6c 6c 54 | 79 70 65 25 3d 30 0d 0b |<0 BallT|ype%=0..|
|00001bf0| 0e 04 0d 0b 18 05 e1 0d | 0b 22 04 0d 0b 2c 0b dd |........|."...,..|
|00001c00| 20 f2 41 74 6f 6d 0d 0b | 36 11 e7 20 52 6f 75 74 | .Atom..|6.. Rout|
|00001c10| 65 25 3d 31 30 20 e1 0d | 0b 40 49 c8 99 20 22 4f |e%=10 ..|.@I.. "O|
|00001c20| 53 5f 53 70 72 69 74 65 | 4f 70 22 2c 33 31 36 2c |S_Sprite|Op",316,|
|00001c30| 53 70 72 69 74 65 50 6f | 6f 6c 2c 22 44 69 61 67 |SpritePo|ol,"Diag|
|00001c40| 72 61 6d 53 70 72 69 74 | 65 22 20 b8 20 52 45 47 |ramSprit|e" . REG|
|00001c50| 30 2c 52 45 47 31 2c 52 | 45 47 32 2c 52 45 47 33 |0,REG1,R|EG2,REG3|
|00001c60| 0d 0b 4a 0f c8 8e 20 52 | 6f 75 74 65 25 20 ca 0d |..J... R|oute% ..|
|00001c70| 0b 54 19 c9 20 30 3a f2 | 4e 65 77 54 79 70 65 3a |.T.. 0:.|NewType:|
|00001c80| 52 6f 75 74 65 25 3d 31 | 0d 0b 5e 13 c9 20 31 3a |Route%=1|..^.. 1:|
|00001c90| f2 43 68 6f 6f 73 65 44 | 69 72 6e 0d 0b 68 24 c9 |.ChooseD|irn..h$.|
|00001ca0| 20 32 3a f2 6d 61 6b 65 | 44 52 28 4c 2c 4d 2c 4e | 2:.make|DR(L,M,N|
|00001cb0| 2c 50 48 49 44 29 3a 52 | 6f 75 74 65 25 3d 33 0d |,PHID):R|oute%=3.|
|00001cc0| 0b 72 0d c9 20 33 3a f2 | 50 6c 6f 74 0d 0b 7c 08 |.r.. 3:.|Plot..|.|
|00001cd0| c9 20 35 3a 0d 0b 86 05 | cb 0d 0b 90 04 0d 0b 9a |. 5:....|........|
|00001ce0| 28 c8 99 20 22 4f 53 5f | 53 70 72 69 74 65 4f 70 |(.. "OS_|SpriteOp|
|00001cf0| 22 2c 52 45 47 30 2c 52 | 45 47 31 2c 52 45 47 32 |",REG0,R|EG1,REG2|
|00001d00| 2c 52 45 47 33 0d 0b a4 | 55 21 77 69 6e 64 25 3d |,REG3...|U!wind%=|
|00001d10| 44 69 61 67 72 61 6d 48 | 61 6e 64 6c 65 25 3a 21 |DiagramH|andle%:!|
|00001d20| 28 77 69 6e 64 25 2b 34 | 29 3d 30 3a 21 28 77 69 |(wind%+4|)=0:!(wi|
|00001d30| 6e 64 25 2b 38 29 3d 2d | 39 33 32 3a 21 28 77 69 |nd%+8)=-|932:!(wi|
|00001d40| 6e 64 25 2b 31 32 29 3d | 31 32 33 36 3a 21 28 77 |nd%+12)=|1236:!(w|
|00001d50| 69 6e 64 25 2b 31 36 29 | 3d 30 0d 0b ae 29 c8 99 |ind%+16)|=0...)..|
|00001d60| 20 22 57 69 6d 70 5f 55 | 70 64 61 74 65 57 69 6e | "Wimp_U|pdateWin|
|00001d70| 64 6f 77 22 2c 2c 77 69 | 6e 64 25 20 b8 20 6d 6f |dow",,wi|nd% . mo|
|00001d80| 72 65 25 0d 0b b8 34 c8 | 95 20 6d 6f 72 65 25 3a |re%...4.|. more%:|
|00001d90| c8 99 20 22 57 69 6d 70 | 5f 47 65 74 52 65 63 74 |.. "Wimp|_GetRect|
|00001da0| 61 6e 67 6c 65 22 2c 2c | 77 69 6e 64 25 20 b8 20 |angle",,|wind% . |
|00001db0| 6d 6f 72 65 25 3a ce 0d | 0b c2 35 43 6f 75 6e 74 |more%:..|..5Count|
|00001dc0| 2b 3d 31 3a f4 49 46 20 | 43 6f 75 6e 74 3d 31 30 |+=1:.IF |Count=10|
|00001dd0| 30 20 50 52 4f 43 53 74 | 6f 70 28 53 54 52 24 28 |0 PROCSt|op(STR$(|
|00001de0| 54 49 4d 45 29 2c 46 41 | 4c 53 45 29 0d 0b cc 05 |TIME),FA|LSE)....|
|00001df0| e1 0d 0b d6 04 0d 0b e0 | 0e dd 20 f2 4e 65 77 54 |........|.. .NewT|
|00001e00| 79 70 65 0d 0b ea 09 46 | 3d 31 31 32 0d 0b f4 04 |ype....F|=112....|
|00001e10| 0d 0b fe 2f 52 3d 32 2e | 35 2a 46 3a 41 3d 30 2e |.../R=2.|5*F:A=0.|
|00001e20| 32 30 31 37 37 35 2a 52 | 3a 42 3d b6 28 33 29 2a |201775*R|:B=.(3)*|
|00001e30| 41 2a 30 2e 39 33 34 32 | 3a 52 32 3d 52 2a 52 0d |A*0.9342|:R2=R*R.|
|00001e40| 0c 08 1c de 20 48 65 78 | 25 28 31 39 2c 35 29 2c |.... Hex|%(19,5),|
|00001e50| 50 65 6e 74 25 28 31 31 | 2c 34 29 0d 0c 12 24 f4 |Pent%(11|,4)...$.|
|00001e60| 47 4f 54 4f 20 33 32 30 | 30 3a 52 45 4d 20 54 6f |GOTO 320|0:REM To|
|00001e70| 20 70 72 65 70 61 72 65 | 20 61 72 72 61 79 73 0d | prepare| arrays.|
|00001e80| 0c 1c 1f 50 65 6e 74 25 | 3d 31 31 3a 48 65 78 25 |...Pent%|=11:Hex%|
|00001e90| 3d 31 39 3a 4e 41 74 6f | 6d 73 25 3d 35 39 0d 0c |=19:NAto|ms%=59..|
|00001ea0| 26 1d 49 6e 25 3d 8e 28 | 22 3c 42 75 63 6b 79 24 |&.In%=.(|"<Bucky$|
|00001eb0| 44 69 72 3e 2e 44 61 74 | 61 22 29 0d 0c 30 33 e3 |Dir>.Dat|a")..03.|
|00001ec0| 20 49 25 3d 30 20 b8 20 | 32 3a e3 20 4a 25 3d 30 | I%=0 . |2:. J%=0|
|00001ed0| 20 b8 20 35 39 3a e8 23 | 49 6e 25 2c 50 28 49 25 | . 59:.#|In%,P(I%|
|00001ee0| 2c 4a 25 29 3a ed 20 4a | 25 3a ed 20 49 25 0d 0c |,J%):. J|%:. I%..|
|00001ef0| 3a 3b e3 20 49 25 3d 30 | 20 b8 20 32 3a e3 20 4a |:;. I%=0| . 2:. J|
|00001f00| 25 3d 30 20 b8 20 4d 61 | 78 4e 25 3a e8 23 49 6e |%=0 . Ma|xN%:.#In|
|00001f10| 25 2c 4c 69 6e 65 73 25 | 28 49 25 2c 4a 25 29 3a |%,Lines%|(I%,J%):|
|00001f20| ed 20 4a 25 3a ed 20 49 | 25 0d 0c 44 3a e3 20 49 |. J%:. I|%..D:. I|
|00001f30| 25 3d 30 20 b8 20 50 65 | 6e 74 25 3a e3 20 4a 25 |%=0 . Pe|nt%:. J%|
|00001f40| 3d 30 20 b8 20 34 3a e8 | 23 49 6e 25 2c 50 65 6e |=0 . 4:.|#In%,Pen|
|00001f50| 74 25 28 49 25 2c 4a 25 | 29 3a ed 20 4a 25 3a ed |t%(I%,J%|):. J%:.|
|00001f60| 20 49 25 0d 0c 4e 38 e3 | 20 49 25 3d 30 20 b8 20 | I%..N8.| I%=0 . |
|00001f70| 48 65 78 25 3a e3 20 4a | 25 3d 30 20 b8 20 35 3a |Hex%:. J|%=0 . 5:|
|00001f80| e8 23 49 6e 25 2c 48 65 | 78 25 28 49 25 2c 4a 25 |.#In%,He|x%(I%,J%|
|00001f90| 29 3a ed 20 4a 25 3a ed | 20 49 25 0d 0c 58 25 e3 |):. J%:.| I%..X%.|
|00001fa0| 20 49 25 3d 30 20 b8 20 | 4d 61 78 4e 25 3a e8 23 | I%=0 . |MaxN%:.#|
|00001fb0| 49 6e 25 2c 4f 72 64 65 | 72 25 28 49 25 29 3a ed |In%,Orde|r%(I%):.|
|00001fc0| 0d 0c 62 09 d9 23 49 6e | 25 0d 0c 6c 05 e1 0d 0c |..b..#In|%..l....|
|00001fd0| 76 04 0d 0c 80 39 ea 20 | 52 61 64 25 28 29 3a de |v....9. |Rad%():.|
|00001fe0| 20 52 61 64 25 28 4d 61 | 78 4e 25 29 3a f4 20 54 | Rad%(Ma|xN%):. T|
|00001ff0| 68 69 73 20 70 61 72 74 | 20 63 72 65 61 74 65 73 |his part| creates|
|00002000| 20 74 68 65 20 61 72 72 | 61 79 73 0d 0c 8a 34 50 | the arr|ays...4P|
|00002010| 28 30 2c 30 29 3d 30 3a | 50 28 31 2c 30 29 3d 41 |(0,0)=0:|P(1,0)=A|
|00002020| 3a 50 28 32 2c 30 29 3d | b6 28 52 32 2d 50 28 30 |:P(2,0)=|.(R2-P(0|
|00002030| 2c 30 29 5e 32 2d 50 28 | 31 2c 30 29 5e 32 29 0d |,0)^2-P(|1,0)^2).|
|00002040| 0c 94 36 50 28 30 2c 31 | 29 3d 42 3a 50 28 31 2c |..6P(0,1|)=B:P(1,|
|00002050| 31 29 3d 32 2a 41 3a 50 | 28 32 2c 31 29 3d b6 28 |1)=2*A:P|(2,1)=.(|
|00002060| 52 32 2d 50 28 30 2c 31 | 29 5e 32 2d 50 28 31 2c |R2-P(0,1|)^2-P(1,|
|00002070| 31 29 5e 32 29 0d 0c 9e | 36 50 28 30 2c 32 29 3d |1)^2)...|6P(0,2)=|
|00002080| 32 2a 42 3a 50 28 31 2c | 32 29 3d 41 3a 50 28 32 |2*B:P(1,|2)=A:P(2|
|00002090| 2c 32 29 3d b6 28 52 32 | 2d 50 28 30 2c 32 29 5e |,2)=.(R2|-P(0,2)^|
|000020a0| 32 2d 50 28 31 2c 32 29 | 5e 32 29 0d 0c a8 04 0d |2-P(1,2)|^2).....|
|000020b0| 0c b2 35 f4 20 52 6f 74 | 61 74 65 20 62 79 20 31 |..5. Rot|ate by 1|
|000020c0| 32 30 20 64 65 67 72 65 | 65 73 20 61 62 6f 75 74 |20 degre|es about|
|000020d0| 20 28 31 2c 31 2c 31 29 | 2e 20 58 2d 3e 59 2d 3e | (1,1,1)|. X->Y->|
|000020e0| 5a 2d 3e 58 0d 0c bc 0e | e3 20 49 25 3d 30 20 b8 |Z->X....|. I%=0 .|
|000020f0| 20 32 0d 0c c6 39 50 28 | 31 2c 49 25 2b 33 29 3d | 2...9P(|1,I%+3)=|
|00002100| 50 28 30 2c 49 25 29 3a | 50 28 32 2c 49 25 2b 33 |P(0,I%):|P(2,I%+3|
|00002110| 29 3d 50 28 31 2c 49 25 | 29 3a 50 28 30 2c 49 25 |)=P(1,I%|):P(0,I%|
|00002120| 2b 33 29 3d 50 28 32 2c | 49 25 29 0d 0c d0 36 f4 |+3)=P(2,|I%)...6.|
|00002130| 20 52 6f 74 61 74 65 20 | 62 79 20 2d 31 32 30 20 | Rotate |by -120 |
|00002140| 64 65 67 72 65 65 73 20 | 61 62 6f 75 74 20 28 31 |degrees |about (1|
|00002150| 2c 31 2c 31 29 2e 20 58 | 2d 3e 5a 2d 3e 59 2d 3e |,1,1). X|->Z->Y->|
|00002160| 58 0d 0c da 39 50 28 32 | 2c 49 25 2b 36 29 3d 50 |X...9P(2|,I%+6)=P|
|00002170| 28 30 2c 49 25 29 3a 50 | 28 30 2c 49 25 2b 36 29 |(0,I%):P|(0,I%+6)|
|00002180| 3d 50 28 31 2c 49 25 29 | 3a 50 28 31 2c 49 25 2b |=P(1,I%)|:P(1,I%+|
|00002190| 36 29 3d 50 28 32 2c 49 | 25 29 0d 0c e4 05 ed 0d |6)=P(2,I|%)......|
|000021a0| 0c ee 0d 4e 41 74 6f 6d | 73 25 3d 38 0d 0c f8 04 |...NAtom|s%=8....|
|000021b0| 0d 0d 02 22 e3 20 49 25 | 3d 30 20 b8 20 38 3a f4 |...". I%|=0 . 8:.|
|000021c0| 20 52 65 66 6c 65 63 74 | 20 69 6e 20 58 2d 61 78 | Reflect| in X-ax|
|000021d0| 69 73 0d 0d 0c 5b e7 20 | 50 28 30 2c 49 25 29 3c |is...[. |P(0,I%)<|
|000021e0| 3e 30 20 4e 41 74 6f 6d | 73 25 2b 3d 31 3a 50 28 |>0 NAtom|s%+=1:P(|
|000021f0| 30 2c 4e 41 74 6f 6d 73 | 25 29 3d 2d 50 28 30 2c |0,NAtoms|%)=-P(0,|
|00002200| 49 25 29 3a 50 28 31 2c | 4e 41 74 6f 6d 73 25 29 |I%):P(1,|NAtoms%)|
|00002210| 3d 50 28 31 2c 49 25 29 | 3a 50 28 32 2c 4e 41 74 |=P(1,I%)|:P(2,NAt|
|00002220| 6f 6d 73 25 29 3d 50 28 | 32 2c 49 25 29 0d 0d 16 |oms%)=P(|2,I%)...|
|00002230| 08 ed 20 49 25 0d 0d 20 | 04 0d 0d 2a 0e 4e 25 3d |.. I%.. |...*.N%=|
|00002240| 4e 41 74 6f 6d 73 25 0d | 0d 34 23 e3 20 49 25 3d |NAtoms%.|.4#. I%=|
|00002250| 30 20 b8 20 4e 25 3a f4 | 20 52 65 66 6c 65 63 74 |0 . N%:.| Reflect|
|00002260| 20 69 6e 20 59 2d 61 78 | 69 73 0d 0d 3e 5b e7 20 | in Y-ax|is..>[. |
|00002270| 50 28 31 2c 49 25 29 3c | 3e 30 20 4e 41 74 6f 6d |P(1,I%)<|>0 NAtom|
|00002280| 73 25 2b 3d 31 3a 50 28 | 30 2c 4e 41 74 6f 6d 73 |s%+=1:P(|0,NAtoms|
|00002290| 25 29 3d 50 28 30 2c 49 | 25 29 3a 50 28 31 2c 4e |%)=P(0,I|%):P(1,N|
|000022a0| 41 74 6f 6d 73 25 29 3d | 2d 50 28 31 2c 49 25 29 |Atoms%)=|-P(1,I%)|
|000022b0| 3a 50 28 32 2c 4e 41 74 | 6f 6d 73 25 29 3d 50 28 |:P(2,NAt|oms%)=P(|
|000022c0| 32 2c 49 25 29 0d 0d 48 | 08 ed 20 49 25 0d 0d 52 |2,I%)..H|.. I%..R|
|000022d0| 04 0d 0d 5c 0e 4e 25 3d | 4e 41 74 6f 6d 73 25 0d |...\.N%=|NAtoms%.|
|000022e0| 0d 66 2d e3 20 49 25 3d | 30 20 b8 20 4e 25 3a f4 |.f-. I%=|0 . N%:.|
|000022f0| 20 52 65 66 6c 65 63 74 | 20 69 6e 20 4e 41 74 6f | Reflect| in NAto|
|00002300| 6d 73 25 2b 3d 31 3a 2d | 61 78 69 73 0d 0d 70 5b |ms%+=1:-|axis..p[|
|00002310| e7 20 50 28 32 2c 49 25 | 29 3c 3e 30 20 4e 41 74 |. P(2,I%|)<>0 NAt|
|00002320| 6f 6d 73 25 2b 3d 31 3a | 50 28 30 2c 4e 41 74 6f |oms%+=1:|P(0,NAto|
|00002330| 6d 73 25 29 3d 50 28 30 | 2c 49 25 29 3a 50 28 31 |ms%)=P(0|,I%):P(1|
|00002340| 2c 4e 41 74 6f 6d 73 25 | 29 3d 50 28 31 2c 49 25 |,NAtoms%|)=P(1,I%|
|00002350| 29 3a 50 28 32 2c 4e 41 | 74 6f 6d 73 25 29 3d 2d |):P(2,NA|toms%)=-|
|00002360| 50 28 32 2c 49 25 29 0d | 0d 7a 08 ed 20 49 25 0d |P(2,I%).|.z.. I%.|
|00002370| 0d 84 04 0d 0d 8e 0d f4 | 20 52 65 6f 72 64 65 72 |........| Reorder|
|00002380| 0d 0d 98 0d 52 61 64 25 | 28 29 3d 2d 31 0d 0d a2 |....Rad%|()=-1...|
|00002390| 22 e3 20 4b 25 3d 30 20 | b8 20 4e 41 74 6f 6d 73 |". K%=0 |. NAtoms|
|000023a0| 25 3a 5a 25 3d 31 30 30 | 2a 52 3a 4c 25 3d 30 0d |%:Z%=100|*R:L%=0.|
|000023b0| 0d ac 42 e3 20 4d 25 3d | 30 20 b8 20 4e 41 74 6f |..B. M%=|0 . NAto|
|000023c0| 6d 73 25 3a e7 20 52 61 | 64 25 28 4d 25 29 3d 2d |ms%:. Ra|d%(M%)=-|
|000023d0| 31 20 8c 20 e7 20 50 28 | 32 2c 4d 25 29 3c 5a 25 |1 . . P(|2,M%)<Z%|
|000023e0| 20 5a 25 3d 50 28 32 2c | 4d 25 29 3a 4c 25 3d 4d | Z%=P(2,|M%):L%=M|
|000023f0| 25 0d 0d b6 08 ed 20 4d | 25 0d 0d c0 1c 52 61 64 |%..... M|%....Rad|
|00002400| 25 28 4c 25 29 3d 31 3a | 4f 72 64 65 72 25 28 4b |%(L%)=1:|Order%(K|
|00002410| 25 29 3d 4c 25 0d 0d ca | 08 ed 20 4b 25 0d 0d d4 |%)=L%...|.. K%...|
|00002420| 04 0d 0d de 14 41 32 3d | 41 2a 41 3a 41 42 3d 34 |.....A2=|A*A:AB=4|
|00002430| 2e 31 2a 41 32 0d 0d e8 | 08 4e 25 3d 30 0d 0d f2 |.1*A2...|.N%=0...|
|00002440| 10 4c 69 6e 65 73 25 28 | 29 3d 28 30 29 0d 0d fc |.Lines%(|)=(0)...|
|00002450| 14 e3 20 49 25 3d 30 20 | b8 20 4e 41 74 6f 6d 73 |.. I%=0 |. NAtoms|
|00002460| 25 0d 0e 06 09 4c 25 3d | 2d 31 0d 0e 10 14 e3 20 |%....L%=|-1..... |
|00002470| 4a 25 3d 30 20 b8 20 4e | 41 74 6f 6d 73 25 0d 0e |J%=0 . N|Atoms%..|
|00002480| 1a 19 58 3d 28 50 28 30 | 2c 49 25 29 2d 50 28 30 |..X=(P(0|,I%)-P(0|
|00002490| 2c 4a 25 29 29 5e 32 0d | 0e 24 1a 58 2b 3d 28 50 |,J%))^2.|.$.X+=(P|
|000024a0| 28 31 2c 49 25 29 2d 50 | 28 31 2c 4a 25 29 29 5e |(1,I%)-P|(1,J%))^|
|000024b0| 32 0d 0e 2e 1a 58 2b 3d | 28 50 28 32 2c 49 25 29 |2....X+=|(P(2,I%)|
|000024c0| 2d 50 28 32 2c 4a 25 29 | 29 5e 32 0d 0e 38 29 e7 |-P(2,J%)|)^2..8).|
|000024d0| 20 58 3e 41 32 20 80 20 | 58 3c 41 42 20 4c 25 2b | X>A2 . |X<AB L%+|
|000024e0| 3d 31 3a 4c 69 6e 65 73 | 25 28 4c 25 2c 49 25 29 |=1:Lines|%(L%,I%)|
|000024f0| 2b 3d 4a 25 0d 0e 42 08 | ed 20 4a 25 0d 0e 4c 04 |+=J%..B.|. J%..L.|
|00002500| 0d 0e 56 0a 4e 25 2b 3d | 4c 25 0d 0e 60 1a e7 20 |..V.N%+=|L%..`.. |
|00002510| 4c 25 3c 3e 32 20 f2 53 | 74 6f 70 28 c3 28 4c 25 |L%<>2 .S|top(.(L%|
|00002520| 29 2c a3 29 0d 0e 6a 08 | ed 20 49 25 0d 0e 74 25 |),.)..j.|. I%..t%|
|00002530| e7 20 4e 25 3c 3e 31 32 | 30 20 f2 53 74 6f 70 28 |. N%<>12|0 .Stop(|
|00002540| 22 4c 69 6e 65 73 3a 22 | 2b c3 28 4e 25 29 2c a3 |"Lines:"|+.(N%),.|
|00002550| 29 0d 0e 7e 04 0d 0e 88 | 06 ef 37 0d 0e 92 14 50 |)..~....|..7....P|
|00002560| 65 6e 74 25 3d 2d 31 3a | 48 65 78 25 3d 2d 31 0d |ent%=-1:|Hex%=-1.|
|00002570| 0e 9c 14 e3 20 49 25 3d | 30 20 b8 20 4e 41 74 6f |.... I%=|0 . NAto|
|00002580| 6d 73 25 0d 0e a6 1f e3 | 20 42 25 3d 30 20 b8 20 |ms%.....| B%=0 . |
|00002590| 32 3a 4a 25 3d 4c 69 6e | 65 73 25 28 42 25 2c 49 |2:J%=Lin|es%(B%,I|
|000025a0| 25 29 0d 0e b0 0d e7 20 | 4a 25 3e 49 25 20 8c 0d |%)..... |J%>I% ..|
|000025b0| 0e ba 1f e3 20 43 25 3d | 30 20 b8 20 32 3a 4b 25 |.... C%=|0 . 2:K%|
|000025c0| 3d 4c 69 6e 65 73 25 28 | 43 25 2c 4a 25 29 0d 0e |=Lines%(|C%,J%)..|
|000025d0| c4 0d e7 20 4b 25 3e 49 | 25 20 8c 0d 0e ce 1f e3 |... K%>I|% ......|
|000025e0| 20 44 25 3d 30 20 b8 20 | 32 3a 4c 25 3d 4c 69 6e | D%=0 . |2:L%=Lin|
|000025f0| 65 73 25 28 44 25 2c 4b | 25 29 0d 0e d8 16 e7 20 |es%(D%,K|%)..... |
|00002600| 4c 25 3e 49 25 20 80 20 | 4c 25 3c 3e 4a 25 20 8c |L%>I% . |L%<>J% .|
|00002610| 0d 0e e2 1f e3 20 45 25 | 3d 30 20 b8 20 32 3a 4d |..... E%|=0 . 2:M|
|00002620| 25 3d 4c 69 6e 65 73 25 | 28 45 25 2c 4c 25 29 0d |%=Lines%|(E%,L%).|
|00002630| 0e ec 16 e7 20 4d 25 3e | 49 25 20 80 20 4d 25 3c |.... M%>|I% . M%<|
|00002640| 3e 4b 25 20 8c 0d 0e f6 | 1f e3 20 46 25 3d 30 20 |>K% ....|.. F%=0 |
|00002650| b8 20 32 3a 4e 25 3d 4c | 69 6e 65 73 25 28 46 25 |. 2:N%=L|ines%(F%|
|00002660| 2c 4d 25 29 0d 0f 00 0d | e7 20 4e 25 3d 49 25 20 |,M%)....|. N%=I% |
|00002670| 8c 0d 0f 0a 0f 20 20 20 | f2 41 64 64 50 65 6e 74 |..... |.AddPent|
|00002680| 0d 0f 14 05 cc 0d 0f 1e | 19 20 20 20 e7 20 4e 25 |........|. . N%|
|00002690| 3e 49 25 20 80 20 4e 25 | 3c 3e 4c 25 20 8c 0d 0f |>I% . N%|<>L% ...|
|000026a0| 28 22 20 20 20 e3 20 47 | 25 3d 30 20 b8 20 32 3a |(" . G|%=0 . 2:|
|000026b0| 4f 25 3d 4c 69 6e 65 73 | 25 28 47 25 2c 4e 25 29 |O%=Lines|%(G%,N%)|
|000026c0| 0d 0f 32 18 20 20 20 e7 | 20 4f 25 3d 49 25 20 8c |..2. .| O%=I% .|
|000026d0| 20 f2 41 64 64 48 65 78 | 0d 0f 3c 0b 20 20 20 ed | .AddHex|..<. .|
|000026e0| 20 47 25 0d 0f 46 08 20 | 20 20 cd 0d 0f 50 05 cd | G%..F. | ...P..|
|000026f0| 0d 0f 5a 08 ed 20 46 25 | 0d 0f 64 05 cd 0d 0f 6e |..Z.. F%|..d....n|
|00002700| 08 ed 20 45 25 0d 0f 78 | 05 cd 0d 0f 82 08 ed 20 |.. E%..x|....... |
|00002710| 44 25 0d 0f 8c 05 cd 0d | 0f 96 08 ed 20 43 25 0d |D%......|.... C%.|
|00002720| 0f a0 05 cd 0d 0f aa 08 | ed 20 42 25 0d 0f b4 08 |........|. B%....|
|00002730| ed 20 49 25 0d 0f be 04 | 0d 0f c8 1d 49 6e 25 3d |. I%....|....In%=|
|00002740| ae 28 22 3c 42 75 63 6b | 79 24 44 69 72 3e 2e 44 |.("<Buck|y$Dir>.D|
|00002750| 61 74 61 22 29 0d 0f d2 | 33 e3 20 49 25 3d 30 20 |ata")...|3. I%=0 |
|00002760| b8 20 32 3a e3 20 4a 25 | 3d 30 20 b8 20 35 39 3a |. 2:. J%|=0 . 59:|
|00002770| f1 23 49 6e 25 2c 50 28 | 49 25 2c 4a 25 29 3a ed |.#In%,P(|I%,J%):.|
|00002780| 20 4a 25 3a ed 20 49 25 | 0d 0f dc 3b e3 20 49 25 | J%:. I%|...;. I%|
|00002790| 3d 30 20 b8 20 32 3a e3 | 20 4a 25 3d 30 20 b8 20 |=0 . 2:.| J%=0 . |
|000027a0| 4d 61 78 4e 25 3a f1 23 | 49 6e 25 2c 4c 69 6e 65 |MaxN%:.#|In%,Line|
|000027b0| 73 25 28 49 25 2c 4a 25 | 29 3a ed 20 4a 25 3a ed |s%(I%,J%|):. J%:.|
|000027c0| 20 49 25 0d 0f e6 3a e3 | 20 49 25 3d 30 20 b8 20 | I%...:.| I%=0 . |
|000027d0| 50 65 6e 74 25 3a e3 20 | 4a 25 3d 30 20 b8 20 34 |Pent%:. |J%=0 . 4|
|000027e0| 3a f1 23 49 6e 25 2c 50 | 65 6e 74 25 28 49 25 2c |:.#In%,P|ent%(I%,|
|000027f0| 4a 25 29 3a ed 20 4a 25 | 3a ed 20 49 25 0d 0f f0 |J%):. J%|:. I%...|
|00002800| 38 e3 20 49 25 3d 30 20 | b8 20 48 65 78 25 3a e3 |8. I%=0 |. Hex%:.|
|00002810| 20 4a 25 3d 30 20 b8 20 | 35 3a f1 23 49 6e 25 2c | J%=0 . |5:.#In%,|
|00002820| 48 65 78 25 28 49 25 2c | 4a 25 29 3a ed 20 4a 25 |Hex%(I%,|J%):. J%|
|00002830| 3a ed 20 49 25 0d 0f fa | 25 e3 20 49 25 3d 30 20 |:. I%...|%. I%=0 |
|00002840| b8 20 4d 61 78 4e 25 3a | f1 23 49 6e 25 2c 4f 72 |. MaxN%:|.#In%,Or|
|00002850| 64 65 72 25 28 49 25 29 | 3a ed 0d 10 04 09 d9 23 |der%(I%)|:......#|
|00002860| 49 6e 25 0d 10 0e 04 0d | 10 18 22 f2 6d 61 6b 65 |In%.....|..".make|
|00002870| 44 52 28 30 2e 34 2c 2d | 30 2e 33 2c 30 2c 50 48 |DR(0.4,-|0.3,0,PH|
|00002880| 49 44 29 3a f2 50 6c 6f | 74 0d 10 22 05 e1 0d 10 |ID):.Plo|t.."....|
|00002890| 2c 04 0d 10 36 0e dd 20 | f2 41 64 64 50 65 6e 74 |,...6.. |.AddPent|
|000028a0| 0d 10 40 0b ea 20 53 25 | 2c 54 25 0d 10 4a 60 e7 |..@.. S%|,T%..J`.|
|000028b0| 20 50 65 6e 74 25 3d 2d | 31 20 8c 20 50 65 6e 74 | Pent%=-|1 . Pent|
|000028c0| 25 3d 30 3a 50 65 6e 74 | 25 28 30 2c 30 29 3d 49 |%=0:Pent|%(0,0)=I|
|000028d0| 25 3a 50 65 6e 74 25 28 | 30 2c 31 29 3d 4a 25 3a |%:Pent%(|0,1)=J%:|
|000028e0| 50 65 6e 74 25 28 30 2c | 32 29 3d 4b 25 3a 50 65 |Pent%(0,|2)=K%:Pe|
|000028f0| 6e 74 25 28 30 2c 33 29 | 3d 4c 25 3a 50 65 6e 74 |nt%(0,3)|=L%:Pent|
|00002900| 25 28 30 2c 34 29 3d 4d | 25 3a e1 0d 10 54 04 0d |%(0,4)=M|%:...T..|
|00002910| 10 5e 19 e7 20 50 65 6e | 74 25 28 50 65 6e 74 25 |.^.. Pen|t%(Pent%|
|00002920| 2c 30 29 3d 49 25 20 8c | 0d 10 68 61 e7 20 50 65 |,0)=I% .|..ha. Pe|
|00002930| 6e 74 25 28 50 65 6e 74 | 25 2c 30 29 2b 50 65 6e |nt%(Pent|%,0)+Pen|
|00002940| 74 25 28 50 65 6e 74 25 | 2c 31 29 2b 50 65 6e 74 |t%(Pent%|,1)+Pent|
|00002950| 25 28 50 65 6e 74 25 2c | 32 29 2b 50 65 6e 74 25 |%(Pent%,|2)+Pent%|
|00002960| 28 50 65 6e 74 25 2c 33 | 29 2b 50 65 6e 74 25 28 |(Pent%,3|)+Pent%(|
|00002970| 50 65 6e 74 25 2c 34 29 | 3d 49 25 2b 4a 25 2b 4b |Pent%,4)|=I%+J%+K|
|00002980| 25 2b 4c 25 2b 4d 25 20 | e1 0d 10 72 05 cd 0d 10 |%+L%+M% |...r....|
|00002990| 7c 0f e7 20 50 65 6e 74 | 25 3e 30 20 8c 0d 10 86 ||.. Pent|%>0 ....|
|000029a0| 1b e7 20 50 65 6e 74 25 | 28 50 65 6e 74 25 2d 31 |.. Pent%|(Pent%-1|
|000029b0| 2c 30 29 3d 49 25 20 8c | 0d 10 90 0c 50 65 6e 74 |,0)=I% .|....Pent|
|000029c0| 25 2d 3d 31 0d 10 9a 6a | e7 20 50 65 6e 74 25 28 |%-=1...j|. Pent%(|
|000029d0| 50 65 6e 74 25 2c 30 29 | 2b 50 65 6e 74 25 28 50 |Pent%,0)|+Pent%(P|
|000029e0| 65 6e 74 25 2c 31 29 2b | 50 65 6e 74 25 28 50 65 |ent%,1)+|Pent%(Pe|
|000029f0| 6e 74 25 2c 32 29 2b 50 | 65 6e 74 25 28 50 65 6e |nt%,2)+P|ent%(Pen|
|00002a00| 74 25 2c 33 29 2b 50 65 | 6e 74 25 28 50 65 6e 74 |t%,3)+Pe|nt%(Pent|
|00002a10| 25 2c 34 29 3d 49 25 2b | 4a 25 2b 4b 25 2b 4c 25 |%,4)=I%+|J%+K%+L%|
|00002a20| 2b 4d 25 20 50 65 6e 74 | 25 2b 3d 31 3a e1 0d 10 |+M% Pent|%+=1:...|
|00002a30| a4 05 cd 0d 10 ae 05 cd | 0d 10 b8 6b 50 65 6e 74 |........|...kPent|
|00002a40| 25 3d 50 65 6e 74 25 2b | 31 3a 50 65 6e 74 25 28 |%=Pent%+|1:Pent%(|
|00002a50| 50 65 6e 74 25 2c 30 29 | 3d 49 25 3a 50 65 6e 74 |Pent%,0)|=I%:Pent|
|00002a60| 25 28 50 65 6e 74 25 2c | 31 29 3d 4a 25 3a 50 65 |%(Pent%,|1)=J%:Pe|
|00002a70| 6e 74 25 28 50 65 6e 74 | 25 2c 32 29 3d 4b 25 3a |nt%(Pent|%,2)=K%:|
|00002a80| 50 65 6e 74 25 28 50 65 | 6e 74 25 2c 33 29 3d 4c |Pent%(Pe|nt%,3)=L|
|00002a90| 25 3a 50 65 6e 74 25 28 | 50 65 6e 74 25 2c 34 29 |%:Pent%(|Pent%,4)|
|00002aa0| 3d 4d 25 0d 10 c2 04 0d | 10 cc 05 e1 0d 10 d6 04 |=M%.....|........|
|00002ab0| 0d 10 e0 0d dd 20 f2 41 | 64 64 48 65 78 0d 10 ea |..... .A|ddHex...|
|00002ac0| 04 0d 10 f4 66 e7 20 48 | 65 78 25 3d 2d 31 20 8c |....f. H|ex%=-1 .|
|00002ad0| 20 48 65 78 25 3d 30 3a | 48 65 78 25 28 30 2c 30 | Hex%=0:|Hex%(0,0|
|00002ae0| 29 3d 49 25 3a 48 65 78 | 25 28 30 2c 31 29 3d 4a |)=I%:Hex|%(0,1)=J|
|00002af0| 25 3a 48 65 78 25 28 30 | 2c 32 29 3d 4b 25 3a 48 |%:Hex%(0|,2)=K%:H|
|00002b00| 65 78 25 28 30 2c 33 29 | 3d 4c 25 3a 48 65 78 25 |ex%(0,3)|=L%:Hex%|
|00002b10| 28 30 2c 34 29 3d 4d 25 | 3a 48 65 78 25 28 30 2c |(0,4)=M%|:Hex%(0,|
|00002b20| 35 29 3d 4e 25 3a e1 0d | 10 fe 04 0d 11 08 17 e7 |5)=N%:..|........|
|00002b30| 20 48 65 78 25 28 48 65 | 78 25 2c 30 29 3d 49 25 | Hex%(He|x%,0)=I%|
|00002b40| 20 8c 0d 11 12 67 e7 20 | 48 65 78 25 28 48 65 78 | ....g. |Hex%(Hex|
|00002b50| 25 2c 30 29 2b 48 65 78 | 25 28 48 65 78 25 2c 31 |%,0)+Hex|%(Hex%,1|
|00002b60| 29 2b 48 65 78 25 28 48 | 65 78 25 2c 32 29 2b 48 |)+Hex%(H|ex%,2)+H|
|00002b70| 65 78 25 28 48 65 78 25 | 2c 33 29 2b 48 65 78 25 |ex%(Hex%|,3)+Hex%|
|00002b80| 28 48 65 78 25 2c 34 29 | 2b 48 65 78 25 28 48 65 |(Hex%,4)|+Hex%(He|
|00002b90| 78 25 2c 35 29 3d 49 25 | 2b 4a 25 2b 4b 25 2b 4c |x%,5)=I%|+J%+K%+L|
|00002ba0| 25 2b 4d 25 2b 4e 25 20 | e1 0d 11 1c 05 cd 0d 11 |%+M%+N% |........|
|00002bb0| 26 0e e7 20 48 65 78 25 | 3e 30 20 8c 0d 11 30 19 |&.. Hex%|>0 ...0.|
|00002bc0| e7 20 48 65 78 25 28 48 | 65 78 25 2d 31 2c 30 29 |. Hex%(H|ex%-1,0)|
|00002bd0| 3d 49 25 20 8c 0d 11 3a | 0f 48 65 78 25 3d 48 65 |=I% ...:|.Hex%=He|
|00002be0| 78 25 2d 31 0d 11 44 6f | e7 20 48 65 78 25 28 48 |x%-1..Do|. Hex%(H|
|00002bf0| 65 78 25 2c 30 29 2b 48 | 65 78 25 28 48 65 78 25 |ex%,0)+H|ex%(Hex%|
|00002c00| 2c 31 29 2b 48 65 78 25 | 28 48 65 78 25 2c 32 29 |,1)+Hex%|(Hex%,2)|
|00002c10| 2b 48 65 78 25 28 48 65 | 78 25 2c 33 29 2b 48 65 |+Hex%(He|x%,3)+He|
|00002c20| 78 25 28 48 65 78 25 2c | 34 29 2b 48 65 78 25 28 |x%(Hex%,|4)+Hex%(|
|00002c30| 48 65 78 25 2c 35 29 3d | 49 25 2b 4a 25 2b 4b 25 |Hex%,5)=|I%+J%+K%|
|00002c40| 2b 4c 25 2b 4d 25 2b 4e | 25 20 48 65 78 25 2b 3d |+L%+M%+N|% Hex%+=|
|00002c50| 31 3a e1 0d 11 4e 05 cd | 0d 11 58 05 cd 0d 11 62 |1:...N..|..X....b|
|00002c60| 6f 48 65 78 25 3d 48 65 | 78 25 2b 31 3a 48 65 78 |oHex%=He|x%+1:Hex|
|00002c70| 25 28 48 65 78 25 2c 30 | 29 3d 49 25 3a 48 65 78 |%(Hex%,0|)=I%:Hex|
|00002c80| 25 28 48 65 78 25 2c 31 | 29 3d 4a 25 3a 48 65 78 |%(Hex%,1|)=J%:Hex|
|00002c90| 25 28 48 65 78 25 2c 32 | 29 3d 4b 25 3a 48 65 78 |%(Hex%,2|)=K%:Hex|
|00002ca0| 25 28 48 65 78 25 2c 33 | 29 3d 4c 25 3a 48 65 78 |%(Hex%,3|)=L%:Hex|
|00002cb0| 25 28 48 65 78 25 2c 34 | 29 3d 4d 25 3a 48 65 78 |%(Hex%,4|)=M%:Hex|
|00002cc0| 25 28 48 65 78 25 2c 35 | 29 3d 4e 25 0d 11 6c 04 |%(Hex%,5|)=N%..l.|
|00002cd0| 0d 11 76 05 e1 0d 11 80 | 04 0d 11 8a 0b dd 20 f2 |..v.....|...... .|
|00002ce0| 50 6c 6f 74 0d 11 94 12 | c8 8e 20 42 61 6c 6c 54 |Plot....|.. BallT|
|00002cf0| 79 70 65 25 20 ca 0d 11 | 9e 0f c9 20 30 3a 20 f2 |ype% ...|... 0: .|
|00002d00| 54 79 70 65 30 0d 11 a8 | 0f c9 20 31 3a 20 f2 54 |Type0...|.. 1: .T|
|00002d10| 79 70 65 31 0d 11 b2 0f | c9 20 32 3a 20 f2 54 79 |ype1....|. 2: .Ty|
|00002d20| 70 65 32 0d 11 bc 0f c9 | 20 33 3a 20 f2 54 79 70 |pe2.....| 3: .Typ|
|00002d30| 65 33 0d 11 c6 05 7f 0d | 11 d0 0a f2 54 79 70 65 |e3......|....Type|
|00002d40| 30 0d 11 da 05 cb 0d 11 | e4 05 e1 0d 11 ee 04 0d |0.......|........|
|00002d50| 11 f8 0c dd 20 f2 54 79 | 70 65 30 0d 12 02 12 f4 |.... .Ty|pe0.....|
|00002d60| 20 4c 69 74 74 6c 65 20 | 42 61 6c 6c 73 0d 12 0c | Little |Balls...|
|00002d70| 0d 53 69 64 65 3d 32 34 | 2f 52 0d 12 16 1b 51 28 |.Side=24|/R....Q(|
|00002d80| 29 3d 44 52 28 29 2e 50 | 28 29 3a c8 94 20 50 28 |)=DR().P|():.. P(|
|00002d90| 29 2c 51 28 29 0d 12 20 | 0d e6 20 30 2c 31 33 33 |),Q().. |.. 0,133|
|00002da0| 3a da 0d 12 2a 34 e6 20 | 30 2c 30 3a c8 8f 20 58 |:...*4. |0,0:.. X|
|00002db0| 43 2c 59 43 2c 52 43 3a | c8 92 20 58 43 2c 59 43 |C,YC,RC:|.. XC,YC|
|00002dc0| 3a f4 20 44 52 41 57 20 | 43 4f 4e 54 52 4f 4c 20 |:. DRAW |CONTROL |
|00002dd0| 43 49 52 43 4c 45 0d 12 | 34 09 e6 20 30 2c 32 0d |CIRCLE..|4.. 0,2.|
|00002de0| 12 3e 04 0d 12 48 23 f4 | 20 4f 52 44 45 52 20 41 |.>...H#.| ORDER A|
|00002df0| 54 4f 4d 53 20 46 52 4f | 4d 20 42 41 43 4b 20 4f |TOMS FRO|M BACK O|
|00002e00| 46 20 48 45 41 50 0d 12 | 52 16 e3 20 4b 25 3d 30 |F HEAP..|R.. K%=0|
|00002e10| 20 b8 20 4e 41 74 6f 6d | 73 25 2d 31 0d 12 5c 42 | . NAtom|s%-1..\B|
|00002e20| e7 20 50 28 32 2c 4f 72 | 64 65 72 25 28 4b 25 29 |. P(2,Or|der%(K%)|
|00002e30| 29 3e 50 28 32 2c 4f 72 | 64 65 72 25 28 4b 25 2b |)>P(2,Or|der%(K%+|
|00002e40| 31 29 29 20 c8 94 20 4f | 72 64 65 72 25 28 4b 25 |1)) .. O|rder%(K%|
|00002e50| 29 2c 4f 72 64 65 72 25 | 28 4b 25 2b 31 29 0d 12 |),Order%|(K%+1)..|
|00002e60| 66 11 4c 25 3d 4f 72 64 | 65 72 25 28 4b 25 29 0d |f.L%=Ord|er%(K%).|
|00002e70| 12 70 14 49 6e 76 4f 72 | 64 65 72 25 28 4c 25 29 |.p.InvOr|der%(L%)|
|00002e80| 3d 4b 25 0d 12 7a 08 ed | 20 4b 25 0d 12 84 04 0d |=K%..z..| K%.....|
|00002e90| 12 8e 2d 4b 25 3d 4e 41 | 74 6f 6d 73 25 3a 4c 25 |..-K%=NA|toms%:L%|
|00002ea0| 3d 4f 72 64 65 72 25 28 | 4b 25 29 3a 49 6e 76 4f |=Order%(|K%):InvO|
|00002eb0| 72 64 65 72 25 28 4c 25 | 29 3d 4b 25 0d 12 98 17 |rder%(L%|)=K%....|
|00002ec0| 70 70 28 29 3d 50 28 29 | 2a 28 32 2e 35 2a 53 69 |pp()=P()|*(2.5*Si|
|00002ed0| 64 65 29 0d 12 a2 04 0d | 12 ac 24 53 24 3d 22 42 |de).....|..$S$="B|
|00002ee0| 61 6c 6c 32 22 3a 53 42 | 24 3d 22 42 61 63 6b 62 |all2":SB|$="Backb|
|00002ef0| 61 6c 6c 32 22 3a 44 25 | 3d 32 38 0d 12 b6 04 0d |all2":D%|=28.....|
|00002f00| 12 c0 14 e3 20 4b 25 3d | 30 20 b8 20 4e 41 74 6f |.... K%=|0 . NAto|
|00002f10| 6d 73 25 0d 12 ca 2d 4c | 25 3d 4f 72 64 65 72 25 |ms%...-L|%=Order%|
|00002f20| 28 4b 25 29 3a 58 3d 58 | 4f 25 2b 50 28 30 2c 4c |(K%):X=X|O%+P(0,L|
|00002f30| 25 29 3a 59 3d 59 4f 25 | 2b 50 28 31 2c 4c 25 29 |%):Y=YO%|+P(1,L%)|
|00002f40| 0d 12 d4 57 e7 20 50 28 | 32 2c 4c 25 29 3c 2d 31 |...W. P(|2,L%)<-1|
|00002f50| 30 30 20 c8 99 20 26 32 | 45 2c 32 39 30 2c 42 61 |00 .. &2|E,290,Ba|
|00002f60| 6c 6c 2c 53 42 24 2c 58 | 2d 44 25 2c 59 2d 44 25 |ll,SB$,X|-D%,Y-D%|
|00002f70| 2c 26 30 38 3a 8b 20 c8 | 99 20 26 32 45 2c 32 39 |,&08:. .|. &2E,29|
|00002f80| 30 2c 42 61 6c 6c 2c 53 | 24 2c 58 2d 44 25 2c 59 |0,Ball,S|$,X-D%,Y|
|00002f90| 2d 44 25 2c 26 30 38 0d | 12 de 04 0d 12 e8 1d 58 |-D%,&08.|.......X|
|00002fa0| 3d 58 2d 70 70 28 30 2c | 4c 25 29 3a 59 3d 59 2d |=X-pp(0,|L%):Y=Y-|
|00002fb0| 70 70 28 31 2c 4c 25 29 | 0d 12 f2 11 20 20 20 e3 |pp(1,L%)|.... .|
|00002fc0| 20 4d 25 3d 30 20 b8 20 | 32 0d 12 fc 17 20 20 20 | M%=0 . |2.... |
|00002fd0| 42 25 3d 4c 69 6e 65 73 | 25 28 4d 25 2c 4c 25 29 |B%=Lines|%(M%,L%)|
|00002fe0| 0d 13 06 1a 20 20 20 e7 | 20 49 6e 76 4f 72 64 65 |.... .| InvOrde|
|00002ff0| 72 25 28 42 25 29 3e 4b | 25 8c 0d 13 10 40 20 20 |r%(B%)>K|%....@ |
|00003000| 20 58 25 3d 58 2b 70 70 | 28 30 2c 42 25 29 3a 59 | X%=X+pp|(0,B%):Y|
|00003010| 25 3d 59 2b 70 70 28 31 | 2c 42 25 29 3a 55 25 3d |%=Y+pp(1|,B%):U%=|
|00003020| 58 4f 25 2b 50 28 30 2c | 42 25 29 3a 56 25 3d 59 |XO%+P(0,|B%):V%=Y|
|00003030| 4f 25 2b 50 28 31 2c 42 | 25 29 0d 13 1a 38 20 20 |O%+P(1,B|%)...8 |
|00003040| 20 86 20 58 25 2c 59 25 | 2c 55 25 2c 56 25 3a 86 | . X%,Y%|,U%,V%:.|
|00003050| 20 58 25 2c 59 25 2b 34 | 2c 55 25 2c 56 25 2b 34 | X%,Y%+4|,U%,V%+4|
|00003060| 3a 86 20 58 25 2b 32 2c | 59 25 2c 55 25 2b 32 2c |:. X%+2,|Y%,U%+2,|
|00003070| 56 25 0d 13 24 08 20 20 | 20 cd 0d 13 2e 0b 20 20 |V%..$. | ..... |
|00003080| 20 ed 20 4d 25 0d 13 38 | 08 ed 20 4b 25 0d 13 42 | . M%..8|.. K%..B|
|00003090| 05 e1 0d 13 4c 04 0d 13 | 56 0c dd 20 f2 54 79 70 |....L...|V.. .Typ|
|000030a0| 65 31 0d 13 60 0f f4 20 | 42 69 67 20 42 61 6c 6c |e1..`.. |Big Ball|
|000030b0| 73 0d 13 6a 0d 53 69 64 | 65 3d 34 38 2f 52 0d 13 |s..j.Sid|e=48/R..|
|000030c0| 74 1b 51 28 29 3d 44 52 | 28 29 2e 50 28 29 3a c8 |t.Q()=DR|().P():.|
|000030d0| 94 20 50 28 29 2c 51 28 | 29 0d 13 7e 0d e6 20 30 |. P(),Q(|)..~.. 0|
|000030e0| 2c 31 33 33 3a da 0d 13 | 88 34 e6 20 30 2c 30 3a |,133:...|.4. 0,0:|
|000030f0| c8 8f 20 58 43 2c 59 43 | 2c 52 43 3a c8 92 20 58 |.. XC,YC|,RC:.. X|
|00003100| 43 2c 59 43 3a f4 20 44 | 52 41 57 20 43 4f 4e 54 |C,YC:. D|RAW CONT|
|00003110| 52 4f 4c 20 43 49 52 43 | 4c 45 0d 13 92 09 e6 20 |ROL CIRC|LE..... |
|00003120| 30 2c 32 0d 13 9c 04 0d | 13 a6 23 f4 20 4f 52 44 |0,2.....|..#. ORD|
|00003130| 45 52 20 41 54 4f 4d 53 | 20 46 52 4f 4d 20 42 41 |ER ATOMS| FROM BA|
|00003140| 43 4b 20 4f 46 20 48 45 | 41 50 0d 13 b0 16 e3 20 |CK OF HE|AP..... |
|00003150| 4b 25 3d 30 20 b8 20 4e | 41 74 6f 6d 73 25 2d 31 |K%=0 . N|Atoms%-1|
|00003160| 0d 13 ba 42 e7 20 50 28 | 32 2c 4f 72 64 65 72 25 |...B. P(|2,Order%|
|00003170| 28 4b 25 29 29 3e 50 28 | 32 2c 4f 72 64 65 72 25 |(K%))>P(|2,Order%|
|00003180| 28 4b 25 2b 31 29 29 20 | c8 94 20 4f 72 64 65 72 |(K%+1)) |.. Order|
|00003190| 25 28 4b 25 29 2c 4f 72 | 64 65 72 25 28 4b 25 2b |%(K%),Or|der%(K%+|
|000031a0| 31 29 0d 13 c4 22 4c 25 | 3d 4f 72 64 65 72 25 28 |1)..."L%|=Order%(|
|000031b0| 4b 25 29 3a 49 6e 76 4f | 72 64 65 72 25 28 4c 25 |K%):InvO|rder%(L%|
|000031c0| 29 3d 4b 25 0d 13 ce 08 | ed 20 4b 25 0d 13 d8 04 |)=K%....|. K%....|
|000031d0| 0d 13 e2 2d 4b 25 3d 4e | 41 74 6f 6d 73 25 3a 4c |...-K%=N|Atoms%:L|
|000031e0| 25 3d 4f 72 64 65 72 25 | 28 4b 25 29 3a 49 6e 76 |%=Order%|(K%):Inv|
|000031f0| 4f 72 64 65 72 25 28 4c | 25 29 3d 4b 25 0d 13 ec |Order%(L|%)=K%...|
|00003200| 1c 53 24 3d 22 42 61 6c | 6c 22 3a 53 42 24 3d 22 |.S$="Bal|l":SB$="|
|00003210| 42 61 63 6b 62 61 6c 6c | 22 0d 13 f6 04 0d 14 00 |Backball|".......|
|00003220| 14 e3 20 4b 25 3d 30 20 | b8 20 4e 41 74 6f 6d 73 |.. K%=0 |. NAtoms|
|00003230| 25 0d 14 0a 2d 4c 25 3d | 4f 72 64 65 72 25 28 4b |%...-L%=|Order%(K|
|00003240| 25 29 3a 58 3d 58 4f 25 | 2b 50 28 30 2c 4c 25 29 |%):X=XO%|+P(0,L%)|
|00003250| 3a 59 3d 59 4f 25 2b 50 | 28 31 2c 4c 25 29 0d 14 |:Y=YO%+P|(1,L%)..|
|00003260| 14 73 e7 20 50 28 32 2c | 4c 25 29 3c 2d 31 30 30 |.s. P(2,|L%)<-100|
|00003270| 20 c8 99 20 26 32 45 2c | 32 39 30 2c 42 61 6c 6c | .. &2E,|290,Ball|
|00003280| 2c 53 42 24 2c 58 4f 25 | 2b 50 28 30 2c 4c 25 29 |,SB$,XO%|+P(0,L%)|
|00003290| 2c 59 4f 25 2b 50 28 31 | 2c 4c 25 29 2c 26 30 38 |,YO%+P(1|,L%),&08|
|000032a0| 3a 8b 20 c8 99 20 26 32 | 45 2c 32 39 30 2c 42 61 |:. .. &2|E,290,Ba|
|000032b0| 6c 6c 2c 53 24 2c 58 4f | 25 2b 50 28 30 2c 4c 25 |ll,S$,XO|%+P(0,L%|
|000032c0| 29 2c 59 4f 25 2b 50 28 | 31 2c 4c 25 29 2c 26 30 |),YO%+P(|1,L%),&0|
|000032d0| 38 0d 14 1e 08 ed 20 4b | 25 0d 14 28 05 e1 0d 14 |8..... K|%..(....|
|000032e0| 32 04 0d 14 3c 0c dd 20 | f2 54 79 70 65 32 0d 14 |2...<.. |.Type2..|
|000032f0| 46 0b f4 20 4c 69 6e 65 | 73 0d 14 50 1b 51 28 29 |F.. Line|s..P.Q()|
|00003300| 3d 44 52 28 29 2e 50 28 | 29 3a c8 94 20 50 28 29 |=DR().P(|):.. P()|
|00003310| 2c 51 28 29 0d 14 5a 0d | e6 20 30 2c 31 33 33 3a |,Q()..Z.|. 0,133:|
|00003320| da 0d 14 64 34 e6 20 30 | 2c 30 3a c8 8f 20 58 43 |...d4. 0|,0:.. XC|
|00003330| 2c 59 43 2c 52 43 3a c8 | 92 20 58 43 2c 59 43 3a |,YC,RC:.|. XC,YC:|
|00003340| f4 20 44 52 41 57 20 43 | 4f 4e 54 52 4f 4c 20 43 |. DRAW C|ONTROL C|
|00003350| 49 52 43 4c 45 0d 14 6e | 09 e6 20 30 2c 32 0d 14 |IRCLE..n|.. 0,2..|
|00003360| 78 04 0d 14 82 23 f4 20 | 4f 52 44 45 52 20 41 54 |x....#. |ORDER AT|
|00003370| 4f 4d 53 20 46 52 4f 4d | 20 42 41 43 4b 20 4f 46 |OMS FROM| BACK OF|
|00003380| 20 48 45 41 50 0d 14 8c | 16 e3 20 4b 25 3d 30 20 | HEAP...|.. K%=0 |
|00003390| b8 20 4e 41 74 6f 6d 73 | 25 2d 31 0d 14 96 42 e7 |. NAtoms|%-1...B.|
|000033a0| 20 50 28 32 2c 4f 72 64 | 65 72 25 28 4b 25 29 29 | P(2,Ord|er%(K%))|
|000033b0| 3e 50 28 32 2c 4f 72 64 | 65 72 25 28 4b 25 2b 31 |>P(2,Ord|er%(K%+1|
|000033c0| 29 29 20 c8 94 20 4f 72 | 64 65 72 25 28 4b 25 29 |)) .. Or|der%(K%)|
|000033d0| 2c 4f 72 64 65 72 25 28 | 4b 25 2b 31 29 0d 14 a0 |,Order%(|K%+1)...|
|000033e0| 11 4c 25 3d 4f 72 64 65 | 72 25 28 4b 25 29 0d 14 |.L%=Orde|r%(K%)..|
|000033f0| aa 14 49 6e 76 4f 72 64 | 65 72 25 28 4c 25 29 3d |..InvOrd|er%(L%)=|
|00003400| 4b 25 0d 14 b4 08 ed 20 | 4b 25 0d 14 be 04 0d 14 |K%..... |K%......|
|00003410| c8 2d 4b 25 3d 4e 41 74 | 6f 6d 73 25 3a 4c 25 3d |.-K%=NAt|oms%:L%=|
|00003420| 4f 72 64 65 72 25 28 4b | 25 29 3a 49 6e 76 4f 72 |Order%(K|%):InvOr|
|00003430| 64 65 72 25 28 4c 25 29 | 3d 4b 25 0d 14 d2 04 0d |der%(L%)|=K%.....|
|00003440| 14 dc 14 e3 20 4b 25 3d | 30 20 b8 20 4e 41 74 6f |.... K%=|0 . NAto|
|00003450| 6d 73 25 0d 14 e6 2f 4c | 25 3d 4f 72 64 65 72 25 |ms%.../L|%=Order%|
|00003460| 28 4b 25 29 3a 58 25 3d | 58 4f 25 2b 50 28 30 2c |(K%):X%=|XO%+P(0,|
|00003470| 4c 25 29 3a 59 25 3d 59 | 4f 25 2b 50 28 31 2c 4c |L%):Y%=Y|O%+P(1,L|
|00003480| 25 29 0d 14 f0 0e e3 20 | 4d 25 3d 30 20 b8 20 32 |%)..... |M%=0 . 2|
|00003490| 0d 14 fa 17 20 20 20 42 | 25 3d 4c 69 6e 65 73 25 |.... B|%=Lines%|
|000034a0| 28 4d 25 2c 4c 25 29 0d | 15 04 1b 20 20 20 e7 20 |(M%,L%).|... . |
|000034b0| 49 6e 76 4f 72 64 65 72 | 25 28 42 25 29 3e 4b 25 |InvOrder|%(B%)>K%|
|000034c0| 20 8c 0d 15 0e 24 20 20 | 20 55 25 3d 58 4f 25 2b | ....$ | U%=XO%+|
|000034d0| 50 28 30 2c 42 25 29 3a | 56 25 3d 59 4f 25 2b 50 |P(0,B%):|V%=YO%+P|
|000034e0| 28 31 2c 42 25 29 0d 15 | 18 38 20 20 20 86 20 58 |(1,B%)..|.8 . X|
|000034f0| 25 2c 59 25 2c 55 25 2c | 56 25 3a 86 20 58 25 2c |%,Y%,U%,|V%:. X%,|
|00003500| 59 25 2b 34 2c 55 25 2c | 56 25 2b 34 3a 86 20 58 |Y%+4,U%,|V%+4:. X|
|00003510| 25 2b 32 2c 59 25 2c 55 | 25 2b 32 2c 56 25 0d 15 |%+2,Y%,U|%+2,V%..|
|00003520| 22 08 20 20 20 cd 0d 15 | 2c 0b 20 20 20 ed 20 4d |". ...|,. . M|
|00003530| 25 0d 15 36 08 ed 20 4b | 25 0d 15 40 05 e1 0d 15 |%..6.. K|%..@....|
|00003540| 4a 04 0d 15 54 04 0d 15 | 5e 0c dd 20 f2 54 79 70 |J...T...|^.. .Typ|
|00003550| 65 33 0d 15 68 0e f4 20 | 53 75 72 66 61 63 65 73 |e3..h.. |Surfaces|
|00003560| 0d 15 72 17 ea 20 4b 25 | 2c 4c 25 2c 4d 25 2c 4e |..r.. K%|,L%,M%,N|
|00003570| 25 2c 42 25 2c 43 25 0d | 15 7c 1b 51 28 29 3d 44 |%,B%,C%.|.|.Q()=D|
|00003580| 52 28 29 2e 50 28 29 3a | c8 94 20 50 28 29 2c 51 |R().P():|.. P(),Q|
|00003590| 28 29 0d 15 86 0d e6 20 | 30 2c 31 33 33 3a da 0d |()..... |0,133:..|
|000035a0| 15 90 34 e6 20 30 2c 30 | 3a c8 8f 20 58 43 2c 59 |..4. 0,0|:.. XC,Y|
|000035b0| 43 2c 52 43 3a c8 92 20 | 58 43 2c 59 43 3a f4 20 |C,RC:.. |XC,YC:. |
|000035c0| 44 52 41 57 20 43 4f 4e | 54 52 4f 4c 20 43 49 52 |DRAW CON|TROL CIR|
|000035d0| 43 4c 45 0d 15 9a 0a e6 | 20 30 2c 31 30 0d 15 a4 |CLE.....| 0,10...|
|000035e0| 04 0d 15 ae 23 f4 20 4f | 52 44 45 52 20 41 54 4f |....#. O|RDER ATO|
|000035f0| 4d 53 20 46 52 4f 4d 20 | 42 41 43 4b 20 4f 46 20 |MS FROM |BACK OF |
|00003600| 48 45 41 50 0d 15 b8 16 | e3 20 4b 25 3d 30 20 b8 |HEAP....|. K%=0 .|
|00003610| 20 4e 41 74 6f 6d 73 25 | 2d 31 0d 15 c2 42 e7 20 | NAtoms%|-1...B. |
|00003620| 50 28 32 2c 4f 72 64 65 | 72 25 28 4b 25 29 29 3e |P(2,Orde|r%(K%))>|
|00003630| 50 28 32 2c 4f 72 64 65 | 72 25 28 4b 25 2b 31 29 |P(2,Orde|r%(K%+1)|
|00003640| 29 20 c8 94 20 4f 72 64 | 65 72 25 28 4b 25 29 2c |) .. Ord|er%(K%),|
|00003650| 4f 72 64 65 72 25 28 4b | 25 2b 31 29 0d 15 cc 22 |Order%(K|%+1)..."|
|00003660| 4c 25 3d 4f 72 64 65 72 | 25 28 4b 25 29 3a 49 6e |L%=Order|%(K%):In|
|00003670| 76 4f 72 64 65 72 25 28 | 4c 25 29 3d 4b 25 0d 15 |vOrder%(|L%)=K%..|
|00003680| d6 08 ed 20 4b 25 0d 15 | e0 2d 4b 25 3d 4e 41 74 |... K%..|.-K%=NAt|
|00003690| 6f 6d 73 25 3a 4c 25 3d | 4f 72 64 65 72 25 28 4b |oms%:L%=|Order%(K|
|000036a0| 25 29 3a 49 6e 76 4f 72 | 64 65 72 25 28 4c 25 29 |%):InvOr|der%(L%)|
|000036b0| 3d 4b 25 0d 15 ea 04 0d | 15 f4 11 e3 20 4b 25 3d |=K%.....|.... K%=|
|000036c0| 30 20 b8 20 48 65 78 25 | 0d 15 fe 33 42 25 3d b9 |0 . Hex%|...3B%=.|
|000036d0| 3a e3 20 41 25 3d 30 20 | b8 20 35 3a 42 25 3d 42 |:. A%=0 |. 5:B%=B|
|000036e0| 25 20 80 20 50 28 32 2c | 48 65 78 25 28 4b 25 2c |% . P(2,|Hex%(K%,|
|000036f0| 41 25 29 29 3e 2d 31 30 | 30 3a ed 0d 16 08 0a e7 |A%))>-10|0:......|
|00003700| 20 42 25 20 8c 0d 16 12 | 2b 4c 25 3d 48 65 78 25 | B% ....|+L%=Hex%|
|00003710| 28 4b 25 2c 30 29 3a ec | 20 58 4f 25 2b 50 28 30 |(K%,0):.| XO%+P(0|
|00003720| 2c 4c 25 29 2c 59 4f 25 | 2b 50 28 31 2c 4c 25 29 |,L%),YO%|+P(1,L%)|
|00003730| 0d 16 1c 2b 4c 25 3d 48 | 65 78 25 28 4b 25 2c 31 |...+L%=H|ex%(K%,1|
|00003740| 29 3a ec 20 58 4f 25 2b | 50 28 30 2c 4c 25 29 2c |):. XO%+|P(0,L%),|
|00003750| 59 4f 25 2b 50 28 31 2c | 4c 25 29 0d 16 26 35 42 |YO%+P(1,|L%)..&5B|
|00003760| 25 3d 35 3a 4c 25 3d 48 | 65 78 25 28 4b 25 2c 42 |%=5:L%=H|ex%(K%,B|
|00003770| 25 29 3a f0 20 26 35 35 | 2c 58 4f 25 2b 50 28 30 |%):. &55|,XO%+P(0|
|00003780| 2c 4c 25 29 2c 59 4f 25 | 2b 50 28 31 2c 4c 25 29 |,L%),YO%|+P(1,L%)|
|00003790| 0d 16 30 35 42 25 3d 32 | 3a 4c 25 3d 48 65 78 25 |..05B%=2|:L%=Hex%|
|000037a0| 28 4b 25 2c 42 25 29 3a | f0 20 26 35 35 2c 58 4f |(K%,B%):|. &55,XO|
|000037b0| 25 2b 50 28 30 2c 4c 25 | 29 2c 59 4f 25 2b 50 28 |%+P(0,L%|),YO%+P(|
|000037c0| 31 2c 4c 25 29 0d 16 3a | 35 42 25 3d 34 3a 4c 25 |1,L%)..:|5B%=4:L%|
|000037d0| 3d 48 65 78 25 28 4b 25 | 2c 42 25 29 3a f0 20 26 |=Hex%(K%|,B%):. &|
|000037e0| 35 35 2c 58 4f 25 2b 50 | 28 30 2c 4c 25 29 2c 59 |55,XO%+P|(0,L%),Y|
|000037f0| 4f 25 2b 50 28 31 2c 4c | 25 29 0d 16 44 35 42 25 |O%+P(1,L|%)..D5B%|
|00003800| 3d 33 3a 4c 25 3d 48 65 | 78 25 28 4b 25 2c 42 25 |=3:L%=He|x%(K%,B%|
|00003810| 29 3a f0 20 26 35 35 2c | 58 4f 25 2b 50 28 30 2c |):. &55,|XO%+P(0,|
|00003820| 4c 25 29 2c 59 4f 25 2b | 50 28 31 2c 4c 25 29 0d |L%),YO%+|P(1,L%).|
|00003830| 16 4e 05 cd 0d 16 58 08 | ed 20 4b 25 0d 16 62 04 |.N....X.|. K%..b.|
|00003840| 0d 16 6c 09 e6 20 30 2c | 39 0d 16 76 12 e3 20 4b |..l.. 0,|9..v.. K|
|00003850| 25 3d 30 20 b8 20 50 65 | 6e 74 25 0d 16 80 34 42 |%=0 . Pe|nt%...4B|
|00003860| 25 3d b9 3a e3 20 41 25 | 3d 30 20 b8 20 34 3a 42 |%=.:. A%|=0 . 4:B|
|00003870| 25 3d 42 25 20 80 20 50 | 28 32 2c 50 65 6e 74 25 |%=B% . P|(2,Pent%|
|00003880| 28 4b 25 2c 41 25 29 29 | 3e 2d 31 30 30 3a ed 0d |(K%,A%))|>-100:..|
|00003890| 16 8a 0a e7 20 42 25 20 | 8c 0d 16 94 2c 4c 25 3d |.... B% |....,L%=|
|000038a0| 50 65 6e 74 25 28 4b 25 | 2c 30 29 3a ec 20 58 4f |Pent%(K%|,0):. XO|
|000038b0| 25 2b 50 28 30 2c 4c 25 | 29 2c 59 4f 25 2b 50 28 |%+P(0,L%|),YO%+P(|
|000038c0| 31 2c 4c 25 29 0d 16 9e | 2c 4c 25 3d 50 65 6e 74 |1,L%)...|,L%=Pent|
|000038d0| 25 28 4b 25 2c 31 29 3a | ec 20 58 4f 25 2b 50 28 |%(K%,1):|. XO%+P(|
|000038e0| 30 2c 4c 25 29 2c 59 4f | 25 2b 50 28 31 2c 4c 25 |0,L%),YO|%+P(1,L%|
|000038f0| 29 0d 16 a8 36 42 25 3d | 34 3a 4c 25 3d 50 65 6e |)...6B%=|4:L%=Pen|
|00003900| 74 25 28 4b 25 2c 42 25 | 29 3a f0 20 26 35 35 2c |t%(K%,B%|):. &55,|
|00003910| 58 4f 25 2b 50 28 30 2c | 4c 25 29 2c 59 4f 25 2b |XO%+P(0,|L%),YO%+|
|00003920| 50 28 31 2c 4c 25 29 0d | 16 b2 36 42 25 3d 32 3a |P(1,L%).|..6B%=2:|
|00003930| 4c 25 3d 50 65 6e 74 25 | 28 4b 25 2c 42 25 29 3a |L%=Pent%|(K%,B%):|
|00003940| f0 20 26 35 35 2c 58 4f | 25 2b 50 28 30 2c 4c 25 |. &55,XO|%+P(0,L%|
|00003950| 29 2c 59 4f 25 2b 50 28 | 31 2c 4c 25 29 0d 16 bc |),YO%+P(|1,L%)...|
|00003960| 36 42 25 3d 33 3a 4c 25 | 3d 50 65 6e 74 25 28 4b |6B%=3:L%|=Pent%(K|
|00003970| 25 2c 42 25 29 3a f0 20 | 26 35 35 2c 58 4f 25 2b |%,B%):. |&55,XO%+|
|00003980| 50 28 30 2c 4c 25 29 2c | 59 4f 25 2b 50 28 31 2c |P(0,L%),|YO%+P(1,|
|00003990| 4c 25 29 0d 16 c6 05 cd | 0d 16 d0 08 ed 20 4b 25 |L%).....|..... K%|
|000039a0| 0d 16 da 04 0d 16 e4 05 | e1 0d 16 ee 04 0d 16 f8 |........|........|
|000039b0| 04 0d 17 02 0f dd 20 f2 | 49 6e 69 74 50 72 6f 67 |...... .|InitProg|
|000039c0| 0d 17 0c 13 58 4f 25 3d | 36 38 30 3a 59 4f 25 3d |....XO%=|680:YO%=|
|000039d0| 34 38 30 0d 17 16 0c 4d | 61 78 4e 25 3d 35 39 0d |480....M|axN%=59.|
|000039e0| 17 20 0b 43 6f 75 6e 74 | 3d 30 0d 17 2a 23 de 20 |. .Count|=0..*#. |
|000039f0| 44 52 28 32 2c 32 29 2c | 50 28 32 2c 4d 61 78 4e |DR(2,2),|P(2,MaxN|
|00003a00| 25 29 2c 51 28 32 2c 4d | 61 78 4e 25 29 0d 17 34 |%),Q(2,M|axN%)..4|
|00003a10| 15 de 20 4c 69 6e 65 73 | 25 28 32 2c 4d 61 78 4e |.. Lines|%(2,MaxN|
|00003a20| 25 29 0d 17 3e 3b de 20 | 70 28 32 2c 4d 61 78 4e |%)..>;. |p(2,MaxN|
|00003a30| 25 29 2c 70 70 28 32 2c | 4d 61 78 4e 25 29 2c 4f |%),pp(2,|MaxN%),O|
|00003a40| 72 64 65 72 25 28 4d 61 | 78 4e 25 29 2c 49 6e 76 |rder%(Ma|xN%),Inv|
|00003a50| 4f 72 64 65 72 25 28 4d | 61 78 4e 25 29 0d 17 48 |Order%(M|axN%)..H|
|00003a60| 22 e3 20 49 25 3d 30 20 | b8 20 4d 61 78 4e 25 3a |". I%=0 |. MaxN%:|
|00003a70| 4f 72 64 65 72 25 28 49 | 25 29 3d 49 25 3a ed 0d |Order%(I|%)=I%:..|
|00003a80| 17 52 04 0d 17 5c 43 5a | 25 3d 8e 28 22 3c 42 75 |.R...\CZ|%=.("<Bu|
|00003a90| 63 6b 79 24 44 69 72 3e | 2e 21 53 70 72 69 74 65 |cky$Dir>|.!Sprite|
|00003aa0| 73 22 29 3a 4c 25 3d a2 | 23 5a 25 2b 31 36 3a d9 |s"):L%=.|#Z%+16:.|
|00003ab0| 23 5a 25 3a de 20 42 61 | 6c 6c 20 4c 25 3a 21 42 |#Z%:. Ba|ll L%:!B|
|00003ac0| 61 6c 6c 3d 4c 25 0d 17 | 66 34 c8 99 20 22 4f 53 |all=L%..|f4.. "OS|
|00003ad0| 5f 53 70 72 69 74 65 4f | 70 22 2c 32 36 36 2c 42 |_SpriteO|p",266,B|
|00003ae0| 61 6c 6c 2c 22 3c 42 75 | 63 6b 79 24 44 69 72 3e |all,"<Bu|cky$Dir>|
|00003af0| 2e 21 53 70 72 69 74 65 | 73 22 0d 17 70 04 0d 17 |.!Sprite|s"..p...|
|00003b00| 7a 23 50 48 49 3d af 2f | 32 30 30 20 3a 20 f4 20 |z#PHI=./|200 : . |
|00003b10| 41 4e 47 4c 45 20 4f 46 | 20 52 4f 54 41 54 49 4f |ANGLE OF| ROTATIO|
|00003b20| 4e 0d 17 84 0e 50 48 49 | 44 3d af 2f 32 30 30 0d |N....PHI|D=./200.|
|00003b30| 17 8e 13 58 4f 3d 36 34 | 30 20 3a 20 59 4f 3d 35 |...XO=64|0 : YO=5|
|00003b40| 31 32 0d 17 98 0b 42 4f | 52 45 44 3d a3 0d 17 a2 |12....BO|RED=....|
|00003b50| 09 e6 20 33 2c 30 0d 17 | ac 1c 52 43 3d 31 30 30 |.. 3,0..|..RC=100|
|00003b60| 20 3a 20 58 43 3d 31 30 | 30 20 3a 20 59 43 3d 31 | : XC=10|0 : YC=1|
|00003b70| 30 30 0d 17 b6 1d 58 4d | 6f 75 73 65 25 3d 58 43 |00....XM|ouse%=XC|
|00003b80| 3a 59 4d 6f 75 73 65 25 | 3d 59 43 2b 31 30 30 0d |:YMouse%|=YC+100.|
|00003b90| 17 c0 0f 42 61 6c 6c 54 | 79 70 65 25 3d 31 0d 17 |...BallT|ype%=1..|
|00003ba0| ca 0c 52 6f 75 74 65 25 | 3d 30 0d 17 d4 0d 42 4d |..Route%|=0....BM|
|00003bb0| 6f 75 73 65 25 3d 34 0d | 17 de 05 e1 0d 17 e8 04 |ouse%=4.|........|
|00003bc0| 0d 17 f2 18 dd 20 f2 6d | 61 6b 65 44 52 28 4c 2c |..... .m|akeDR(L,|
|00003bd0| 4d 2c 4e 2c 50 48 49 29 | 0d 17 fc 39 f4 20 45 56 |M,N,PHI)|...9. EV|
|00003be0| 41 4c 55 41 54 45 20 54 | 52 41 4e 53 46 4f 52 4d |ALUATE T|RANSFORM|
|00003bf0| 41 54 49 4f 4e 20 4d 41 | 54 52 49 58 20 46 4f 52 |ATION MA|TRIX FOR|
|00003c00| 20 41 20 53 4d 41 4c 4c | 20 52 4f 54 41 54 49 4f | A SMALL| ROTATIO|
|00003c10| 4e 0d 18 06 09 ea 20 43 | 2c 53 0d 18 10 17 43 3d |N..... C|,S....C=|
|00003c20| 31 2d 9b 28 50 48 49 29 | 3a 53 3d b5 28 50 48 49 |1-.(PHI)|:S=.(PHI|
|00003c30| 29 0d 18 1a 3f 44 52 28 | 30 2c 30 29 3d 31 2b 28 |)...?DR(|0,0)=1+(|
|00003c40| 4c 2a 4c 2d 31 29 2a 43 | 20 3a 20 44 52 28 30 2c |L*L-1)*C| : DR(0,|
|00003c50| 31 29 3d 4c 2a 4d 2a 43 | 2d 4e 2a 53 20 3a 20 44 |1)=L*M*C|-N*S : D|
|00003c60| 52 28 30 2c 32 29 3d 4c | 2a 4e 2a 43 2b 4d 2a 53 |R(0,2)=L|*N*C+M*S|
|00003c70| 0d 18 24 3f 44 52 28 31 | 2c 30 29 3d 4c 2a 4d 2a |..$?DR(1|,0)=L*M*|
|00003c80| 43 2b 4e 2a 53 20 3a 20 | 44 52 28 31 2c 31 29 3d |C+N*S : |DR(1,1)=|
|00003c90| 31 2b 28 4d 2a 4d 2d 31 | 29 2a 43 20 3a 20 44 52 |1+(M*M-1|)*C : DR|
|00003ca0| 28 31 2c 32 29 3d 4d 2a | 4e 2a 43 2d 4c 2a 53 0d |(1,2)=M*|N*C-L*S.|
|00003cb0| 18 2e 3f 44 52 28 32 2c | 30 29 3d 4c 2a 4e 2a 43 |..?DR(2,|0)=L*N*C|
|00003cc0| 2d 4d 2a 53 20 3a 20 44 | 52 28 32 2c 31 29 3d 4d |-M*S : D|R(2,1)=M|
|00003cd0| 2a 4e 2a 43 2b 4c 2a 53 | 20 3a 20 44 52 28 32 2c |*N*C+L*S| : DR(2,|
|00003ce0| 32 29 3d 31 2b 28 4e 2a | 4e 2d 31 29 2a 43 0d 18 |2)=1+(N*|N-1)*C..|
|00003cf0| 38 05 e1 0d 18 42 04 0d | 18 4c 04 0d 18 56 11 dd |8....B..|.L...V..|
|00003d00| 20 f2 43 68 6f 6f 73 65 | 44 69 72 6e 0d 18 60 34 | .Choose|Dirn..`4|
|00003d10| f4 20 45 56 41 4c 55 41 | 54 45 20 44 49 52 45 43 |. EVALUA|TE DIREC|
|00003d20| 54 49 4f 4e 20 43 4f 53 | 49 4e 45 53 20 4f 46 20 |TION COS|INES OF |
|00003d30| 43 48 4f 53 45 4e 20 44 | 49 52 45 43 54 49 4f 4e |CHOSEN D|IRECTION|
|00003d40| 0d 18 6a 07 ea 20 52 0d | 18 74 17 58 3d 58 4d 6f |..j.. R.|.t.X=XMo|
|00003d50| 75 73 65 25 3a 59 3d 59 | 4d 6f 75 73 65 25 0d 18 |use%:Y=Y|Mouse%..|
|00003d60| 7e 1c 20 20 52 3d b6 28 | 28 58 2d 58 43 29 5e 32 |~. R=.(|(X-XC)^2|
|00003d70| 2b 28 59 2d 59 43 29 5e | 32 29 0d 18 88 0f 20 20 |+(Y-YC)^|2).... |
|00003d80| e7 20 52 3c 3d 52 43 20 | 8c 0d 18 92 16 20 20 20 |. R<=RC |..... |
|00003d90| 20 20 4d 58 4f 3d 58 20 | 3a 20 4d 59 4f 3d 59 0d | MXO=X |: MYO=Y.|
|00003da0| 18 9c 18 20 20 20 20 20 | 58 3d 58 2d 58 43 20 3a |... |X=X-XC :|
|00003db0| 20 59 3d 59 2d 59 43 0d | 18 a6 1d 20 20 20 20 20 | Y=Y-YC.|... |
|00003dc0| e7 20 42 4d 6f 75 73 65 | 25 3d 31 20 50 48 49 3d |. BMouse|%=1 PHI=|
|00003dd0| 2d 50 48 49 0d 18 b0 26 | 20 20 20 20 20 4c 3d 58 |-PHI...&| L=X|
|00003de0| 2f 28 52 43 2d 31 29 20 | 3a 20 e7 20 4c 3e 3d 31 |/(RC-1) |: . L>=1|
|00003df0| 20 4c 3d 31 20 3a 20 59 | 3d 30 0d 18 ba 26 20 20 | L=1 : Y|=0...& |
|00003e00| 20 20 20 4d 3d 59 2f 28 | 52 43 2d 31 29 20 3a 20 | M=Y/(|RC-1) : |
|00003e10| e7 20 4d 3e 3d 31 20 4d | 3d 31 20 3a 20 4c 3d 30 |. M>=1 M|=1 : L=0|
|00003e20| 0d 18 c4 3b 20 20 20 20 | 20 4e 3d 28 31 2d 4c 2a |...; | N=(1-L*|
|00003e30| 4c 2d 4d 2a 4d 29 20 3a | 20 e7 20 4e 3c 30 20 4d |L-M*M) :| . N<0 M|
|00003e40| 3d b6 28 31 2d 4c 2a 4c | 29 20 3a 20 4e 3d 30 20 |=.(1-L*L|) : N=0 |
|00003e50| 3a 20 8b 20 4e 3d 2d b6 | 28 4e 29 0d 18 ce 11 20 |: . N=-.|(N).... |
|00003e60| 20 20 20 20 50 48 49 44 | 3d 50 48 49 0d 18 d8 11 | PHID|=PHI....|
|00003e70| 20 20 20 20 20 52 6f 75 | 74 65 25 3d 32 0d 18 e2 | Rou|te%=2...|
|00003e80| 05 cc 0d 18 ec 0e 20 20 | 52 6f 75 74 65 25 3d 33 |...... |Route%=3|
|00003e90| 0d 18 f6 15 20 20 58 3d | 58 2d 58 4f 25 3a 59 3d |.... X=|X-XO%:Y=|
|00003ea0| 59 2d 59 4f 25 0d 19 00 | 4a 20 20 4b 25 3d 30 3a |Y-YO%...|J K%=0:|
|00003eb0| f5 3a 52 3d 28 28 58 2d | 50 28 30 2c 4b 25 29 29 |.:R=((X-|P(0,K%))|
|00003ec0| 5e 32 2b 28 59 2d 50 28 | 31 2c 4b 25 29 29 5e 32 |^2+(Y-P(|1,K%))^2|
|00003ed0| 29 3a 4b 25 3d 4b 25 2b | 31 3a fd 20 52 3c 31 30 |):K%=K%+|1:. R<10|
|00003ee0| 30 30 20 84 20 4b 25 3e | 4e 41 74 6f 6d 73 25 0d |00 . K%>|NAtoms%.|
|00003ef0| 19 0a 4c 20 e7 20 52 3c | 31 30 30 30 20 52 6f 75 |..L . R<|1000 Rou|
|00003f00| 74 65 25 3d 34 3a 58 61 | 74 6f 6d 25 3d 50 28 30 |te%=4:Xa|tom%=P(0|
|00003f10| 2c 4b 25 29 3a 59 61 74 | 6f 6d 25 3d 50 28 31 2c |,K%):Yat|om%=P(1,|
|00003f20| 4b 25 29 3a 5a 61 74 6f | 6d 25 3d 50 28 32 2c 4b |K%):Zato|m%=P(2,K|
|00003f30| 25 29 3a 41 74 6f 6d 25 | 3d 4b 25 0d 19 14 05 cd |%):Atom%|=K%.....|
|00003f40| 0d 19 1e 05 e1 0d 19 28 | 04 0d 19 32 0c dd 20 f2 |.......(|...2.. .|
|00003f50| 53 74 65 65 72 0d 19 3c | 1d e7 20 77 69 6e 64 25 |Steer..<|.. wind%|
|00003f60| 21 38 3d 34 20 84 20 77 | 69 6e 64 25 21 38 3d 31 |!8=4 . w|ind%!8=1|
|00003f70| 20 8c 0d 19 46 0c 52 6f | 75 74 65 25 3d 31 0d 19 | ...F.Ro|ute%=1..|
|00003f80| 50 33 58 4d 6f 75 73 65 | 25 3d 77 69 6e 64 25 21 |P3XMouse|%=wind%!|
|00003f90| 30 3a 59 4d 6f 75 73 65 | 25 3d 77 69 6e 64 25 21 |0:YMouse|%=wind%!|
|00003fa0| 34 3a 42 4d 6f 75 73 65 | 25 3d 77 69 6e 64 25 21 |4:BMouse|%=wind%!|
|00003fb0| 38 0d 19 5a 3a 77 69 6e | 64 25 21 30 3d 44 69 61 |8..Z:win|d%!0=Dia|
|00003fc0| 67 72 61 6d 48 61 6e 64 | 6c 65 25 3a c8 99 20 22 |gramHand|le%:.. "|
|00003fd0| 57 69 6d 70 5f 47 65 74 | 57 69 6e 64 6f 77 53 74 |Wimp_Get|WindowSt|
|00003fe0| 61 74 65 22 2c 2c 77 69 | 6e 64 25 0d 19 64 49 58 |ate",,wi|nd%..dIX|
|00003ff0| 4f 46 46 25 3d 77 69 6e | 64 25 21 34 2d 77 69 6e |OFF%=win|d%!4-win|
|00004000| 64 25 21 32 30 3a f4 20 | 4f 46 46 53 45 54 20 54 |d%!20:. |OFFSET T|
|00004010| 4f 20 53 50 52 49 54 45 | 20 4c 45 46 54 53 49 44 |O SPRITE| LEFTSID|
|00004020| 45 2c 20 53 41 4d 45 20 | 41 53 20 57 4f 52 4b 20 |E, SAME |AS WORK |
|00004030| 41 52 45 41 0d 19 6e 44 | 59 4f 46 46 25 3d 2d 77 |AREA..nD|YOFF%=-w|
|00004040| 69 6e 64 25 21 32 34 2b | 77 69 6e 64 25 21 31 36 |ind%!24+|wind%!16|
|00004050| 2d 48 65 69 67 68 74 25 | 3a f4 20 4f 46 46 53 45 |-Height%|:. OFFSE|
|00004060| 54 20 54 4f 20 42 4f 54 | 54 4f 4d 20 4f 46 20 57 |T TO BOT|TOM OF W|
|00004070| 4f 52 4b 20 41 52 45 41 | 0d 19 78 2f 58 4d 6f 75 |ORK AREA|..x/XMou|
|00004080| 73 65 25 3d 58 4d 6f 75 | 73 65 25 2d 58 4f 46 46 |se%=XMou|se%-XOFF|
|00004090| 25 3a 59 4d 6f 75 73 65 | 25 3d 59 4d 6f 75 73 65 |%:YMouse|%=YMouse|
|000040a0| 25 2d 59 4f 46 46 25 0d | 19 82 05 cd 0d 19 8c 05 |%-YOFF%.|........|
|000040b0| e1 0d 19 96 04 0d 19 a0 | 0c dd 20 f2 52 58 28 57 |........|.. .RX(W|
|000040c0| 29 0d 19 aa 26 f4 20 4d | 41 54 52 49 58 20 46 4f |)...&. M|ATRIX FO|
|000040d0| 52 20 52 4f 54 41 54 49 | 4f 4e 20 41 42 4f 55 54 |R ROTATI|ON ABOUT|
|000040e0| 20 58 2d 41 58 49 53 0d | 19 b4 0a 52 58 28 29 3d | X-AXIS.|...RX()=|
|000040f0| 30 0d 19 be 42 52 58 28 | 30 2c 30 29 3d 31 3a 52 |0...BRX(|0,0)=1:R|
|00004100| 58 28 31 2c 31 29 3d 9b | 28 57 29 3a 52 58 28 31 |X(1,1)=.|(W):RX(1|
|00004110| 2c 32 29 3d b5 28 57 29 | 3a 52 58 28 32 2c 31 29 |,2)=.(W)|:RX(2,1)|
|00004120| 3d 2d b5 28 57 29 3a 52 | 58 28 32 2c 32 29 3d 9b |=-.(W):R|X(2,2)=.|
|00004130| 28 57 29 0d 19 c8 05 e1 | 0d 19 d2 04 0d 19 dc 0c |(W).....|........|
|00004140| dd 20 f2 52 59 28 57 29 | 0d 19 e6 26 f4 20 4d 41 |. .RY(W)|...&. MA|
|00004150| 54 52 49 58 20 46 4f 52 | 20 52 4f 54 41 54 49 4f |TRIX FOR| ROTATIO|
|00004160| 4e 20 41 42 4f 55 54 20 | 59 2d 41 58 49 53 0d 19 |N ABOUT |Y-AXIS..|
|00004170| f0 0a 52 59 28 29 3d 30 | 0d 19 fa 42 52 59 28 30 |..RY()=0|...BRY(0|
|00004180| 2c 30 29 3d 9b 28 57 29 | 3a 52 59 28 30 2c 32 29 |,0)=.(W)|:RY(0,2)|
|00004190| 3d 2d b5 28 57 29 3a 52 | 59 28 31 2c 31 29 3d 31 |=-.(W):R|Y(1,1)=1|
|000041a0| 3a 52 59 28 32 2c 30 29 | 3d b5 28 57 29 3a 52 59 |:RY(2,0)|=.(W):RY|
|000041b0| 28 32 2c 32 29 3d 9b 28 | 57 29 0d 1a 04 05 e1 0d |(2,2)=.(|W)......|
|000041c0| 1a 0e 04 0d 1a 18 0c dd | 20 f2 52 5a 28 57 29 0d |........| .RZ(W).|
|000041d0| 1a 22 26 f4 20 4d 41 54 | 52 49 58 20 46 4f 52 20 |."&. MAT|RIX FOR |
|000041e0| 52 4f 54 41 54 49 4f 4e | 20 41 42 4f 55 54 20 5a |ROTATION| ABOUT Z|
|000041f0| 2d 41 58 49 53 0d 1a 2c | 0a 52 5a 28 29 3d 30 0d |-AXIS..,|.RZ()=0.|
|00004200| 1a 36 42 52 5a 28 30 2c | 30 29 3d 9b 28 57 29 3a |.6BRZ(0,|0)=.(W):|
|00004210| 52 5a 28 30 2c 31 29 3d | b5 28 57 29 3a 52 5a 28 |RZ(0,1)=|.(W):RZ(|
|00004220| 31 2c 30 29 3d 2d b5 28 | 57 29 3a 52 5a 28 31 2c |1,0)=-.(|W):RZ(1,|
|00004230| 31 29 3d 9b 28 57 29 3a | 52 5a 28 32 2c 32 29 3d |1)=.(W):|RZ(2,2)=|
|00004240| 31 0d 1a 40 05 e1 0d 1a | 4a 04 0d 1a 54 31 dd 20 |1..@....|J...T1. |
|00004250| f2 53 65 74 55 70 48 65 | 6c 70 28 49 44 25 2c 53 |.SetUpHe|lp(ID%,S|
|00004260| 69 7a 65 49 44 25 2c 54 | 65 78 74 42 75 66 66 25 |izeID%,T|extBuff%|
|00004270| 2c 53 69 7a 65 42 75 66 | 66 25 29 0d 1a 5e 08 f7 |,SizeBuf|f%)..^..|
|00004280| 20 2b 31 0d 1a 68 1c dc | 20 31 2c 22 41 62 6f 75 | +1..h..| 1,"Abou|
|00004290| 74 20 74 68 69 73 20 70 | 72 6f 67 72 61 6d 22 0d |t this p|rogram".|
|000042a0| 1a 72 0a dc 20 30 2c 22 | 22 0d 1a 7c 4d dc 20 30 |.r.. 0,"|"..|M. 0|
|000042b0| 2c 22 54 68 69 73 20 70 | 72 6f 67 72 61 6d 20 73 |,"This p|rogram s|
|000042c0| 68 6f 77 73 20 74 68 65 | 20 6d 6f 6c 65 63 75 6c |hows the| molecul|
|000042d0| 61 72 20 73 74 72 75 63 | 74 75 72 65 20 6f 66 20 |ar struc|ture of |
|000042e0| 42 75 63 6b 6d 69 6e 73 | 74 65 72 20 46 75 6c 65 |Buckmins|ter Fule|
|000042f0| 72 65 6e 65 2e 22 0d 1a | 86 65 dc 20 30 2c 22 54 |rene."..|.e. 0,"T|
|00004300| 68 69 73 20 6d 6f 6c 65 | 63 75 6c 65 20 63 6f 6e |his mole|cule con|
|00004310| 73 69 73 74 73 20 6f 66 | 20 36 30 20 63 61 72 62 |sists of| 60 carb|
|00004320| 6f 6e 20 61 74 6f 6d 73 | 20 61 72 72 61 6e 67 65 |on atoms| arrange|
|00004330| 64 20 6f 6e 20 61 20 73 | 70 68 65 72 6f 69 64 20 |d on a s|pheroid |
|00004340| 69 6e 20 68 65 78 61 67 | 6f 6e 73 20 61 6e 64 20 |in hexag|ons and |
|00004350| 70 65 6e 74 61 67 6f 6e | 73 2e 22 0d 1a 9a 0a dc |pentagon|s.".....|
|00004360| 20 30 2c 22 22 0d 1a a4 | 12 dc 20 31 2c 22 52 6f | 0,""...|.. 1,"Ro|
|00004370| 74 61 74 69 6f 6e 22 0d | 1a ae 0a dc 20 30 2c 22 |tation".|.... 0,"|
|00004380| 22 0d 1a b8 dc dc 20 30 | 2c 22 59 6f 75 20 63 61 |"..... 0|,"You ca|
|00004390| 6e 20 72 6f 74 61 74 65 | 20 74 68 65 20 6d 6f 6c |n rotate| the mol|
|000043a0| 65 63 75 6c 65 20 61 62 | 6f 75 74 20 69 74 73 20 |ecule ab|out its |
|000043b0| 63 65 6e 74 72 65 20 74 | 6f 20 76 69 65 77 20 69 |centre t|o view i|
|000043c0| 74 20 66 72 6f 6d 20 64 | 69 66 66 65 72 65 6e 74 |t from d|ifferent|
|000043d0| 20 64 69 72 65 63 74 69 | 6f 6e 73 2e 20 54 68 65 | directi|ons. The|
|000043e0| 20 61 78 69 73 20 6f 66 | 20 72 6f 74 61 74 69 6f | axis of| rotatio|
|000043f0| 6e 20 63 61 6e 20 62 65 | 20 63 68 6f 73 65 6e 20 |n can be| chosen |
|00004400| 77 69 74 68 20 74 68 65 | 20 6d 6f 75 73 65 20 62 |with the| mouse b|
|00004410| 79 20 63 6c 69 63 6b 69 | 6e 67 20 69 6e 20 74 68 |y clicki|ng in th|
|00004420| 65 20 52 6f 74 61 74 69 | 6f 6e 20 53 65 6c 65 63 |e Rotati|on Selec|
|00004430| 74 6f 72 20 63 69 72 63 | 6c 65 20 61 74 20 74 68 |tor circ|le at th|
|00004440| 65 20 62 6f 74 74 6f 6d | 20 6c 65 66 74 20 6f 66 |e bottom| left of|
|00004450| 20 74 68 65 20 73 63 72 | 65 65 6e 2e 22 0d 1a c2 | the scr|een."...|
|00004460| 85 f4 44 41 54 41 20 30 | 2c 22 4f 72 20 79 6f 75 |..DATA 0|,"Or you|
|00004470| 20 63 61 6e 20 64 72 61 | 67 20 6f 6e 65 20 6f 66 | can dra|g one of|
|00004480| 20 74 68 65 20 61 74 6f | 6d 73 20 74 6f 20 61 20 | the ato|ms to a |
|00004490| 6e 65 77 20 70 6f 73 69 | 74 69 6f 6e 2e 20 28 4e |new posi|tion. (N|
|000044a0| 6f 74 20 61 6c 6c 20 70 | 6f 73 69 74 69 6f 6e 73 |ot all p|ositions|
|000044b0| 20 61 72 65 20 61 6c 6c | 6f 77 65 64 20 64 75 65 | are all|owed due|
|000044c0| 20 74 6f 20 74 68 65 20 | 72 69 67 69 64 69 74 79 | to the |rigidity|
|000044d0| 20 6f 66 20 74 68 65 20 | 63 72 79 73 74 61 6c 2e | of the |crystal.|
|000044e0| 29 22 0d 1a c3 12 dc 20 | 31 2c 22 44 69 61 67 72 |)"..... |1,"Diagr|
|000044f0| 61 6d 73 22 0d 1a c4 72 | dc 20 30 2c 22 54 68 65 |ams"...r|. 0,"The|
|00004500| 20 6d 6f 6c 65 63 75 6c | 65 20 63 61 6e 20 62 65 | molecul|e can be|
|00004510| 20 64 69 73 70 6c 61 79 | 65 64 20 69 6e 20 64 69 | display|ed in di|
|00004520| 66 66 65 72 65 6e 74 20 | 66 6f 72 6d 73 20 62 79 |fferent |forms by|
|00004530| 20 63 68 6f 6f 73 69 6e | 67 20 6f 6e 65 20 6f 66 | choosin|g one of|
|00004540| 20 74 68 65 20 6f 70 74 | 69 6f 6e 73 20 69 6e 20 | the opt|ions in |
|00004550| 74 68 65 20 44 69 73 70 | 6c 61 79 20 73 75 62 2d |the Disp|lay sub-|
|00004560| 6d 65 6e 75 2e 22 0d 1a | cc 0d dc 20 30 2c 22 45 |menu."..|... 0,"E|
|00004570| 4e 44 22 0d 1a d6 04 0d | 1a e0 0b 49 43 25 3d 49 |ND".....|...IC%=I|
|00004580| 44 25 0d 1a ea 18 53 74 | 61 72 74 54 65 78 74 25 |D%....St|artText%|
|00004590| 3d 54 65 78 74 42 75 66 | 66 25 0d 1a f4 0e 4d 69 |=TextBuf|f%....Mi|
|000045a0| 6e 59 25 3d 2d 31 36 30 | 0d 1a fe 04 0d 1b 08 0b |nY%=-160|........|
|000045b0| f3 20 54 25 2c 41 24 0d | 1b 12 05 f5 0d 1b 1c 2f |. T%,A$.|......./|
|000045c0| 4c 25 3d a9 28 41 24 29 | 3a c8 95 20 c2 41 24 2c |L%=.(A$)|:.. .A$,|
|000045d0| 31 29 3d 22 20 22 20 4c | 25 3d 4c 25 2d 31 3a 41 |1)=" " L|%=L%-1:A|
|000045e0| 24 3d c0 41 24 2c 4c 25 | 29 3a ce 0d 1b 26 13 41 |$=.A$,L%|):...&.A|
|000045f0| 24 3d 22 20 20 20 22 2b | 41 24 2b 22 20 22 0d 1b |$=" "+|A$+" "..|
|00004600| 30 04 0d 1b 3a 19 c8 95 | 20 28 41 24 3c 3e 22 20 |0...:...| (A$<>" |
|00004610| 22 20 80 20 41 24 3c 3e | 22 22 29 0d 1b 44 1d 4c |" . A$<>|"")..D.L|
|00004620| 25 3d 34 30 3a e7 20 a9 | 28 41 24 29 3c 4c 25 20 |%=40:. .|(A$)<L% |
|00004630| 4c 25 3d a9 28 41 24 29 | 0d 1b 4e 1f c8 95 20 c1 |L%=.(A$)|..N... .|
|00004640| 41 24 2c 4c 25 2c 31 29 | 3c 3e 22 20 22 20 4c 25 |A$,L%,1)|<>" " L%|
|00004650| 3d 4c 25 2d 31 3a ce 0d | 1b 58 24 24 53 74 61 72 |=L%-1:..|.X$$Star|
|00004660| 74 54 65 78 74 25 3d c0 | 41 24 2c 4c 25 29 3a 41 |tText%=.|A$,L%):A|
|00004670| 24 3d c1 41 24 2c 4c 25 | 2b 31 29 0d 1b 62 15 4c |$=.A$,L%|+1)..b.L|
|00004680| 25 3d a9 28 24 53 74 61 | 72 74 54 65 78 74 25 29 |%=.($Sta|rtText%)|
|00004690| 0d 1b 6c 04 0d 1b 76 30 | 21 49 43 25 3d 31 36 20 |..l...v0|!IC%=16 |
|000046a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000046b0| 20 20 20 20 20 20 3a f4 | 20 4d 49 4e 20 58 20 43 | :.| MIN X C|
|000046c0| 4f 4f 52 44 0d 1b 80 30 | 21 28 49 43 25 2b 34 29 |OORD...0|!(IC%+4)|
|000046d0| 3d 4d 69 6e 59 25 3a 4d | 69 6e 59 25 3d 4d 69 6e |=MinY%:M|inY%=Min|
|000046e0| 59 25 2d 34 34 20 3a f4 | 20 4d 49 4e 20 59 20 43 |Y%-44 :.| MIN Y C|
|000046f0| 4f 4f 52 44 0d 1b 8a 30 | 21 28 49 43 25 2b 38 29 |OORD...0|!(IC%+8)|
|00004700| 3d 21 49 43 25 2b 31 36 | 2a 4c 25 20 20 20 20 20 |=!IC%+16|*L% |
|00004710| 20 20 20 20 20 20 3a f4 | 20 4d 41 58 20 58 20 43 | :.| MAX X C|
|00004720| 4f 4f 52 44 0d 1b 94 30 | 21 28 49 43 25 2b 31 32 |OORD...0|!(IC%+12|
|00004730| 29 3d 37 36 2b 4d 69 6e | 59 25 20 20 20 20 20 20 |)=76+Min|Y% |
|00004740| 20 20 20 20 20 20 3a f4 | 20 4d 41 58 20 59 20 43 | :.| MAX Y C|
|00004750| 4f 4f 52 44 0d 1b 9e 14 | 20 20 20 20 f4 20 49 43 |OORD....| . IC|
|00004760| 4f 4e 20 46 4c 41 47 53 | 0d 1b a8 29 20 20 20 20 |ON FLAGS|...) |
|00004770| 41 25 3d 31 20 20 20 20 | 20 20 20 20 20 20 20 20 |A%=1 | |
|00004780| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 54 45 58 | | :. TEX|
|00004790| 54 0d 1b b2 37 20 20 20 | 20 41 25 2b 3d 31 3c 3c |T...7 | A%+=1<<|
|000047a0| 34 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |4 | |
|000047b0| 20 20 20 3a f4 20 43 45 | 4e 54 52 45 44 20 56 45 | :. CE|NTRED VE|
|000047c0| 52 54 49 43 41 4c 4c 59 | 0d 1b bc 34 20 20 20 20 |RTICALLY|...4 |
|000047d0| 41 25 2b 3d 31 3c 3c 35 | 20 20 20 20 20 20 20 20 |A%+=1<<5| |
|000047e0| 20 20 20 20 20 20 20 20 | 3a f4 20 46 49 4c 4c 45 | |:. FILLE|
|000047f0| 44 20 42 41 43 4b 47 52 | 4f 55 4e 44 0d 1b c6 2f |D BACKGR|OUND.../|
|00004800| 20 20 20 20 41 25 2b 3d | 31 3c 3c 38 20 20 20 20 | A%+=|1<<8 |
|00004810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 | | :.|
|00004820| 20 49 4e 44 49 52 45 43 | 54 45 44 0d 1b d0 36 20 | INDIREC|TED...6 |
|00004830| 20 20 20 41 25 2b 3d 31 | 32 3c 3c 32 34 20 20 20 | A%+=1|2<<24 |
|00004840| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 | | :. |
|00004850| 46 4f 52 45 47 52 4f 55 | 4e 44 20 43 4f 4c 4f 55 |FOREGROU|ND COLOU|
|00004860| 52 0d 1b da 35 20 20 20 | 20 41 25 2b 3d 38 3c 3c |R...5 | A%+=8<<|
|00004870| 32 38 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |28 | |
|00004880| 20 20 3a f4 20 42 41 43 | 4b 47 52 4f 55 4e 44 20 | :. BAC|KGROUND |
|00004890| 43 4f 4c 4f 55 52 0d 1b | e4 0c e7 20 54 25 3d 31 |COLOUR..|... T%=1|
|000048a0| 20 8c 0d 1b ee 2c 20 20 | 20 20 21 49 43 25 3d a8 | ...., | !IC%=.|
|000048b0| 28 31 36 2a 28 32 30 2d | 4c 25 2f 32 29 29 20 20 |(16*(20-|L%/2)) |
|000048c0| 3a f4 20 4d 49 4e 20 58 | 20 43 4f 4f 52 44 0d 1b |:. MIN X| COORD..|
|000048d0| f8 2e 20 20 20 20 21 28 | 49 43 25 2b 38 29 3d 21 |.. !(|IC%+8)=!|
|000048e0| 49 43 25 2b 31 36 2a 28 | 4c 25 2b 33 29 20 3a f4 |IC%+16*(|L%+3) :.|
|000048f0| 20 4d 41 58 20 58 20 43 | 4f 4f 52 44 0d 1c 02 2e | MAX X C|OORD....|
|00004900| 20 20 20 20 21 28 49 43 | 25 2b 31 32 29 3d 31 30 | !(IC|%+12)=10|
|00004910| 30 2b 4d 69 6e 59 25 20 | 20 20 20 20 3a f4 20 4d |0+MinY% | :. M|
|00004920| 41 58 20 59 20 43 4f 4f | 52 44 0d 1c 0c 29 20 20 |AX Y COO|RD...) |
|00004930| 20 20 41 25 2b 3d 31 3c | 3c 32 20 20 20 20 20 20 | A%+=1<|<2 |
|00004940| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 42 4f 52 | | :. BOR|
|00004950| 44 45 52 0d 1c 16 37 20 | 20 20 20 f4 41 25 2b 3d |DER...7 | .A%+=|
|00004960| 31 3c 3c 35 20 20 20 20 | 20 20 20 20 20 20 20 20 |1<<5 | |
|00004970| 20 20 20 20 3a 52 45 4d | 20 46 49 4c 4c 45 44 20 | :REM| FILLED |
|00004980| 42 41 43 4b 47 52 4f 55 | 4e 44 0d 1c 20 3d 20 20 |BACKGROU|ND.. = |
|00004990| 20 20 41 25 2d 3d 31 32 | 3c 3c 32 34 20 20 20 20 | A%-=12|<<24 |
|000049a0| 20 20 20 20 20 20 20 20 | 20 20 3a f4 20 46 4f 52 | | :. FOR|
|000049b0| 45 47 52 4f 55 4e 44 20 | 43 4f 4c 4f 55 52 20 49 |EGROUND |COLOUR I|
|000049c0| 53 20 57 48 49 54 45 0d | 1c 2a 35 20 20 20 20 41 |S WHITE.|.*5 A|
|000049d0| 25 2d 3d 38 3c 3c 32 38 | 20 20 20 20 20 20 20 20 |%-=8<<28| |
|000049e0| 20 20 20 20 20 20 20 20 | 3a f4 20 42 41 43 4b 47 | |:. BACKG|
|000049f0| 52 4f 55 4e 44 20 43 4f | 4c 4f 55 52 0d 1c 34 36 |ROUND CO|LOUR..46|
|00004a00| 20 20 20 20 41 25 2b 3d | 31 31 3c 3c 32 38 20 20 | A%+=|11<<28 |
|00004a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3a f4 | | :.|
|00004a20| 20 42 41 43 4b 47 52 4f | 55 4e 44 20 43 4f 4c 4f | BACKGRO|UND COLO|
|00004a30| 55 52 0d 1c 3e 05 cd 0d | 1c 48 10 21 28 49 43 25 |UR..>...|.H.!(IC%|
|00004a40| 2b 31 36 29 3d 41 25 0d | 1c 52 04 0d 1c 5c 29 21 |+16)=A%.|.R...\)!|
|00004a50| 28 49 43 25 2b 32 30 29 | 3d 53 74 61 72 74 54 65 |(IC%+20)|=StartTe|
|00004a60| 78 74 25 20 3a f4 20 53 | 54 41 52 54 20 4f 46 20 |xt% :. S|TART OF |
|00004a70| 54 45 58 54 0d 1c 66 26 | 21 28 49 43 25 2b 32 34 |TEXT..f&|!(IC%+24|
|00004a80| 29 3d 30 20 20 20 20 20 | 20 20 20 20 20 3a f4 20 |)=0 | :. |
|00004a90| 56 41 4c 49 44 41 54 49 | 4f 4e 0d 1c 70 29 21 28 |VALIDATI|ON..p)!(|
|00004aa0| 49 43 25 2b 32 38 29 3d | 4c 25 20 20 20 20 20 20 |IC%+28)=|L% |
|00004ab0| 20 20 20 3a f4 20 42 55 | 46 46 45 52 20 4c 45 4e | :. BU|FFER LEN|
|00004ac0| 47 54 48 0d 1c 7a 04 0d | 1c 84 22 49 43 25 3d 49 |GTH..z..|.."IC%=I|
|00004ad0| 43 25 2b 33 32 3a e7 20 | 49 43 25 3e 49 44 25 2b |C%+32:. |IC%>ID%+|
|00004ae0| 53 69 7a 65 49 44 25 20 | fa 0d 1c 8e 17 21 28 49 |SizeID% |.....!(I|
|00004af0| 44 25 2d 34 29 3d 21 28 | 49 44 25 2d 34 29 2b 31 |D%-4)=!(|ID%-4)+1|
|00004b00| 0d 1c 98 04 0d 1c a2 21 | 53 74 61 72 74 54 65 78 |.......!|StartTex|
|00004b10| 74 25 2b 3d 4c 25 2b 31 | 3a f4 20 54 65 72 6d 69 |t%+=L%+1|:. Termi|
|00004b20| 6e 61 74 6f 72 0d 1c ac | 29 e7 20 53 74 61 72 74 |nator...|). Start|
|00004b30| 54 65 78 74 25 3e 54 65 | 78 74 42 75 66 66 25 2b |Text%>Te|xtBuff%+|
|00004b40| 53 69 7a 65 42 75 66 66 | 25 2d 32 30 20 fa 0d 1c |SizeBuff|%-20 ...|
|00004b50| b6 04 0d 1c c0 05 ce 0d | 1c ca 04 0d 1c d4 16 f3 |........|........|
|00004b60| 20 54 25 2c 41 24 3a fd | 20 41 24 3d 22 45 4e 44 | T%,A$:.| A$="END|
|00004b70| 22 0d 1c de 04 0d 1c e8 | 05 e1 0d 1c f2 04 0d 1c |".......|........|
|00004b80| fc 18 dd 20 f2 53 74 6f | 70 28 53 74 6f 70 24 2c |... .Sto|p(Stop$,|
|00004b90| 53 74 6f 70 25 29 0d 1d | 06 17 ea 20 77 69 6e 64 |Stop%)..|... wind|
|00004ba0| 25 3a de 20 77 69 6e 64 | 25 20 34 30 30 0d 1d 10 |%:. wind|% 400...|
|00004bb0| 48 21 77 69 6e 64 25 3d | 30 3a 24 28 77 69 6e 64 |H!wind%=|0:$(wind|
|00004bc0| 25 2b 34 29 3d 53 74 6f | 70 24 2b bd 30 3a c8 99 |%+4)=Sto|p$+.0:..|
|00004bd0| 20 22 57 69 6d 70 5f 52 | 65 70 6f 72 74 45 72 72 | "Wimp_R|eportErr|
|00004be0| 6f 72 22 2c 77 69 6e 64 | 25 2c 2c 22 44 79 6e 61 |or",wind|%,,"Dyna|
|00004bf0| 6d 69 63 73 22 0d 1d 1a | 0f d1 3d 30 3a 43 6f 75 |mics"...|..=0:Cou|
|00004c00| 6e 74 3d 30 0d 1d 24 05 | e1 0d ff |nt=0..$.|... |
+--------+-------------------------+-------------------------+--------+--------+
